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.
1

1 respuesta

1
Respuesta de
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 !
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Visual Basic o hacer tu propia pregunta: