Fechas Julianas

[Vampersy]

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 

[Dessa]

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

Código [Seleccionar] Expandir



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