nov9Publicado por: xLink
viernes, 09 de noviembre de 2007 09:30 a.m. 
Se quieren importar datos que contienen fechas, y algunas veces esas fechas no son reconocidad por el driver, para estos casos es conveniente usar el formato Juliano de Fecha, hay dos formatos posibles el corto y el extendido.
Juliano Extendido - es un número de 7 cifras comformado de la siguente manera:
AAAADDD donde AAAA es el año completo y DDD es el número del día en el año.
Juliano Corto - es un número de 5 cifras:
AADDD donde AA es el año de dos cifras y DDD es el día del año.
Así pues:
2007/04/17 = 2007107 = 07107
Funciones para el Formato Extendido VB.net
|
Private Function Gregoriano_Juliano(ByVal Fecha As Date) As String
Return Fecha.Year.ToString() & Fecha.DayOfYear.ToString.PadLeft(3, "0"c)
End Function
Private Function Juliano_Gregoriano(ByVal Juliano As String) As Date
Dim d As Date = New Date(Convert.ToInt32(Left(Juliano, 4)), 1, 1)
Return d.AddDays(Convert.ToInt32(Right(Juliano, 3)) - 1)
End Function
|