PDA

Vollständige Version anzeigen : Julianisches Datum umwandeln


andela
27.04.2001, 13:32
Irgendwo habe ich schon mal ein paar VBA Zeilen gesehen, welche ein julianisches Datum im Format 98012 (12. Januar 1998) in ein normales, also gregorianisches Datum umwandeln. Wo bitte finde ich eine entsprechende Funktion() ?

Manuela Kulpa
27.04.2001, 15:11
Hallo andela!

Das ist recht einfach! Versuche folgendes:

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> JulianDateToGregorianDate(lNumIn <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> Date

<FONT COLOR=#000080>Dim</FONT> iYear <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>Dim</FONT> iDays <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>Const</FONT> clngScale <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = 1000

iYear = Int(lNumIn / clngScale)
iDays = lNumIn - (iYear * clngScale)

JulianDateToGregorianDate = DateAdd("d", iDays - 1, _
DateSerial(iYear, 1, 1))

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT>

</FONT></PRE>
Gruss

andikoeln
24.05.2006, 22:04
Hallo :-)

und wie funktioniert das ganze anders rum, meine
wie rechne ich ein "normales" Datum in ein Julianisches Datum um ?
Gruß
Andreas