Julianisches Datum in gregorianisches Datum wandeln Diese Funktion wandelt den "Julian Day" ins gregorianische Datum um.
Autor:   Andreas Rollwage	Bewertung:     [ Jetzt bewerten ]	Views:  11.070
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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