Hallo Forum,
ich würde gerne den julianischen Tag (also 01.01. = 1 / 28.07. = 209) per Makro ermitteln lasse. Dafür habe ich gestern auch in einem anderen Beitrag folgende Lösung von Heinz A. Wankmüller gefunden:
Sub
Dim Datumsabfrage As Date
Datumsabfrage = InputBox("Bitte das Datum eingeben:", "Message Box")
Juliatag = Datumsabfrage - DateSerial(Year(Date), 1, 0)
MsgBox "Eingabe: " & Juliatag
End Sub
Allerdings funktioniert diese Lösung nur mit dem laufenden Jahr. Gebe ich z.B. als Datum den 01.01.2006 ermittelt mir das Makro statt "1" nämlich "366" (es schreibt also die Tage über dieses Jahr hinaus fort).
Ich bräuchte allerdings eine Lösung die auch mit den zukünftigen Jahren funktioniert. Kann mir da evtl. jemand weiterhelfen?
Danke schon mal im voraus!
Matthias