Fecha Juliana
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.
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.
1 Respuesta
Respuesta de ifrancoz
1
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 !
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 !
