VB6 Julian cadena de fecha a fecha Objeto

Question

¿Hay una función en Visual Basic 6 que se puede utilizar para convertir una cadena de fecha juliana ( 99001-1st de Jan de 1999 ) para un objeto Date?

He intentado usar CDate() pero no se como se esperaba los resultados.

Gracias.

Answer 1

Creo que el siguiente iba a funcionar, sólo hay que poner la fecha de Julian dentro de la variable jd.

Dim dt as Date 
Dim jd as Long
dt = DateSerial(1900 + Int(jd / 1000), 1, jd Mod 1000)