VB6 Julian Data String to Date Object

Question

C'è una funzione in Visual Basic 6 che può essere utilizzato per convertire una stringa data julian ( 99001-1st di gennaio 1999 ) a un oggetto Date?

Ho provato con CDate() ma i risultati non sono quelli previsti.

ringraziamento.

Answer 1

Credo che il seguente avrebbe funzionato, basta mettere la data julian all'interno della variabile JD.

Dim dt as Date 
Dim jd as Long
dt = DateSerial(1900 + Int(jd / 1000), 1, jd Mod 1000)