Funcion realizada en Visual Basic para convertir fecha de julianas a
gregorianas y viceversa.
Function CGregoJulian(Grego As String) As String
Dim YYYY As Variant
Dim AñoJ As Integer
Dim Years As String
Dim MyDate As Date
MyDate = CDate(Grego)
YYYY = Year(Grego)
If YYYY <= 1999 Then
Years = Right(YYYY, 2)
Else
AñoJ = CInt(Right(YYYY, 2)) + 100
Years = CStr(AñoJ)
End If
CGregoJulian = Years + Format(MyDate - DateSerial(Year(MyDate) - 1, 12,
31), "000")
End Function
Function CJulianGrego(JulDay As String) As String
' OBJETIVO: Convertir un día juliano en una fecha.'
' Funciona con fechas basadas en el calendario gregoriano '
' (moderno). '
' Recibe como parametro la fecha juliana
' Y devuelve la fecha en formato gregoriano
Dim Years As String
Dim Days As Integer
Dim YYYY As Variant
Days = CInt(Right(JulDay, 3))
If Len(JulDay) = 5 Then
YYYY = 1900 + (JulDay \ 1000)
Else
Years = Left(JulDay, 3)
YYYY = 2000 + CInt(Right(Years, 2))
End If
If Days > 0 And Days < 366 Or Days = 366 And YYYY Mod 4 = 0 And YYYY Mod
100 <> 0 Or YYYY Mod 400 = 0 Then
CJulianGrego = DateSerial(YYYY, 1, Days)
End If
End Function
Puedes verlo en formato texto aquí
Utilidad desarrollada por Wilber Martinez Rasgado
14-11-2001
|
