Fecha juliana en Visual Basic .Net

¿Que es la fecha Juliana? Pues la fecha juliana es el número de dia del año. Por ejemplo, el 1 de enero seria el dia 1, el 1 de Febrero el 32... y así sucesivamente (para más información podéis ir al enlace de la Wikipedia para concer más acerca de la fecha Juliana).

En Visual Basic .Net su cálculo es muy sencillo (en el ejemplo mostramos la fecha juliana de la fecha actual que tengamos en el sistema):

Public Class Form1

Public Function DevolverDiaJuliano(ByVal dtFecha As Date) As Integer

  Dim dtPrimeroEnero As Date
  Dim dtDiaActual As Date

  dtPrimeroEnero = DateSerial(Year(dtFecha), 1, 1)
  dtDiaActual = dtFecha
  Return CInt(DateDiff(DateInterval.Day, dtPrimeroEnero, dtDiaActual)) + 1

End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  MessageBox.Show(DevolverDiaJuliano(Now.Date))

End Sub
End Class

Enlaces: Wikipedia