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
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 de ifrancoz
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 !
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 !
