[VB6] Funzione che restituisce il giorno "giuliano"

[MItaly]

L'ho scritta in 10 minuti documentandomi un attimo su Wikipedia e su MSDN...

Public Function Now_JulianDay() As Double
    Now_JulianDay = Now() + 2415018.5
End Function

Se ti interessa solo la parte intera cambia il tipo di dati a Long.
---EDIT---
Se ti serve il giorno giuliano a partire da un valore Date...

Public Function JulianDay(ByVal Day As Date) As Double
    JulianDay = Day + 2415018.5
End Function

Anche a questa si applica lo stesso discorso della precedente.