nov 9

Publicado 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

 

Tags: