|
Geschrieben von: Marcus Rose
|
|
Sonntag, 11. Mai 2008 um 07:29 Uhr |
|
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
|
VBA Makro Beispiele 
