Letzte Sonntag im März ermitteln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Letzte Sonntag im März ermitteln
von: Andreas B.
Geschrieben am: 04.07.2002 - 10:30:58

Hallo,
kann mir jemand helfen eine VBA-Funktion um Datum WinterSommerzeit-Umstellung (letzte Sonntag im März) zu ermitteln. danke im voraus.
Andreas B.

nach oben   nach unten

Re: Letzte Sonntag im März ermitteln
von: Andreas
Geschrieben am: 04.07.2002 - 10:38:57

Hallo Andreas,

hier mal ein Beispiel für eine solche Funktion. Als Parameter wird das Jahr erwartet:

Function LetzterSonntag(intJahr%) As Date
Dim i%

For i = 31 To 25 Step -1
    If Weekday(DateSerial(intJahr, 3, i)) = vbSunday Then
        LetzterSonntag = DateSerial(intJahr, 3, i)
        Exit For
    End If
Next i
End Function

Sub test()
MsgBox Format(LetzterSonntag(2002), "dd/mm/yy")
End Sub

Viel Spaß,
Andreas

nach oben   nach unten

Re: Letzte Sonntag im März ermitteln
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 11:07:45

... der Vollständigkeit halber noch eine Excel-Funktion:
=DATUM(A1;4;0)-WOCHENTAG(DATUM(A1;4;0))+1
In A1 steht das Jahr.

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Letzte Sonntag im März ermitteln"