Fecha Juliana

Respuesta de
a
Usuario
Hola:
Lo que pasa es que tengo un drama con las fechas juliana, lo que quiero hacer es transformar "2006, 275, 1645" en "02/10/2006 16:45" o en "38992.6979166667"
en excel lo logre hacer con esta formula  "=FECHA(C2-1;12;31)+D2+(ENTERO(E2/100)/24)+(E2-ENTERO(E2/100)*100)/60/24", pero en VBA no lo logro hacer, espero me ayuden y muchas gracias por leer mi consulta.
Avatar
Experto
Buenas noches :
Se puede utilizar algo como esto:
Dim Jul As Long
Dim Ano As Integer
Dim Dia As Integer
Dim Fecini As Date
Dim Fecfin As Date
Private Sub Convertir_Juliana()
   Ano = Mid(Jul, 1, 4)
   Dia = Mid(Jul, 5, 3) - 1
   Fecini = Ano & "/" & "01/01"
   Fecfin = Format(DateAdd("d", Dia, Fecini), "yyyy/mm/dd")
End Sub
Suerte !
Usuario
Gracias, ya me quedo claro y lo pude lograr hacer...