VB6 Julian cadena de fecha a fecha Objeto
-
12-10-2019 - |
Pregunta
¿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.
Solución
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)
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow