Julián date

Hola
Quisiera convertir una fecha en formato estándar a formato Juliano utilizando alguna función de Visual Basic.
¿Me pueden aconsejar cómo lo puedo lograr?
Gracias por su asesoría
Saludos

1 respuesta

Respuesta
1
Pues una función no la hay. Pero si te sirve esto.
Dim Juliana as string
Dim Fecw as date
Dim Iniw as date
Dim Dias as integer
Fecw = Format(Dtpfecha, "yyyy/mm/dd")
Iniw = Year(Dtpfecha) & "/01/01"
Dias = (Fecw - Iniw) + 1
Juliana = Format(Year(Dtpfecha), "000#")) & Format(Dias, "00#")
Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas