Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB5, VB6 | 27.10.06 |
Julianisches Datum in gregorianisches Datum wandeln Diese Funktion wandelt den "Julian Day" ins gregorianische Datum um. | ||
Autor: Andreas Rollwage | Bewertung: | Views: 10.562 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgender Funktion lässt sich ein julianisches Datum ins gregorianische Datum umwandeln.
Der "Julian Day" gibt den laufenden Tag im Jahr an. Das bedeutet, dass zum 01.01. eines Jahres nur der Julian Day addiert werden braucht. Allerdings muss zuvor vom laufenden Tag einer abgezogen werden, da beim 01.01 eines Jahres der Julian Day = 1 ist.
Public Function JulianToGregor(ByVal u_dblJDay As Double) As String ' u_dblJDay = 3 ==> 03.01.yyyy Dim datDate As Date ' u_dblJDay = 3 u_dblJDay = u_dblJDay - 1 ' u_dblJDay = 2 ' zum 01.01. diesen Jahres den dekrementierten Julian Day addieren datDate = DateAdd("d", u_dblJDay, "01.01." & Year(Now)) ' Rückgabe JulianToGregor = Format(datDate, "dd.mm.yyyy") End Function