Excel VBA - Sommerzeit

Bei Eingabe einer Jahreszahl in die Abfrage, soll uns der Beginn und das Ende der Sommerzeit errechnet und angezeigt werden.

 

Option Explicit

Sub Sommerzeit()
    Dim Somanfang As Date
    Dim Somende As Date
    Dim intjahr As Date
    Dim Datum As Date
    intjahr = InputBox("Für welches Jahr soll die Sommerzeit berechnet werden?")
    Datum = DateSerial(intjahr, 3, 31)
    While Weekday(Datum) <> vbSunday
        Datum = Datum - 1
    Wend
    Somanfang = Datum
    Datum = DateSerial(intjahr, 10, 31)
    While Weekday(Datum) <> vbSunday
        Datum = Datum - 1
    Wend
    Somende = Datum
    MsgBox ("Anfang der Sommerzeit: " & Somanfang & _
    Chr(13) & "Ende der Sommerzeit: " & Somende)
End Sub

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok