VB6 Julian Date de chaîne à ce jour l'objet

Question

Y at-il une fonction dans Visual Basic 6 qui peut être utilisé pour convertir une chaîne de date julian ( 99001-1st de janvier 1999 ) à un objet Date?

Je l'ai essayé d'utiliser CDate() mais les résultats ne sont pas comme prévu.

THanks.

Answer 1

Je pense que ce qui suit fonctionnerait, il suffit de mettre votre date ordinale dans la variable jd.

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