miércoles, 14 de mayo de 2008

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

No hay comentarios: