[VB6] Funzione che restituisce il giorno "giuliano"

[henry78]

ciao a tutti,

esiste una funzione in vb6 che mi restituisce il "giorno giuliano" ??


non riesco a trovare nulla

[diegocoz]

Che io sappia no; ne ho avuto bisogno e ho utilizzato le funzioni dei database con cui lavoravo, richiamandole e testandone il ritorno.

Non dovrebbe però essere complicato implementarla. Alla fine si tratta di un loop in cui incrementi il 1/1/YYYY fino alla data di cui ti serve il giorno giuliano, e tieni il conto di quanti incrementi hai fatto. O no ?

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

[henry78]

grazie 1000!

[MItaly]

Non c'è di che; ciao!