Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Vampersy en 6 Enero 2009, 08:04 am

Título: Fechas Julianas
Publicado por: Vampersy en 6 Enero 2009, 08:04 am

Que tal caballeros
Tengo un problema. Necesito convertir fechas normales a fechas julianas tal como:
normarl(06/01/2008 - 06/01/2009) =fecha juliana(2454472-2454838)
Ya engo algunos ejemplos que encontre en pscode.com, pero no arrojan la fecha tal como debe de ser.

Bueno espero sus sugerencias y aunque hay sitios donde podes hacerlo, yo lo necesito en mi app. Gracias :P

Título: Re: Fechas Julianas
Publicado por: Dessa en 6 Enero 2009, 10:12 am

Proba si sirve pasar la fecha a "generalnumber" de visual mas la diferencia que parece constante de 2415019

Código:


Private Sub Form_Load()

'MsgBox 2454472 - 2454838

MsgBox Format("06/01/2008", "general number") + 2415019
MsgBox Format("06/01/2009", "general number") + 2415019
MsgBox Format(Date, "general number") + 2415019
MsgBox Format("10/01/2009", "general number") + 2415019

End Sub

Saludos