VB6 Julian Datum String to Date Object

Question

Gibt es eine Funktion in Visual Basic 6, die verwendet werden können, ein julian Datum Zeichenfolge ( 99001-1st von Januar 1999 ) zu einem Date Objekt zu konvertieren?

Ich habe versucht, CDate() verwenden, aber die Ergebnisse sind nicht wie erwartet.

THanks.

Answer 1

ich denke, die folgenden funktionieren würde, nur Ihren julian Datum innerhalb der jd Variable setzen.

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