|
Geschrieben von: Marcus Rose
|
|
Mittwoch, 23. April 2008 um 18:42 Uhr |
|
Ihr sucht eine Abfrage, in Excel VBA, damit ihr herausfinden könnt ob ein Jahr ein Schaltjahr war? Mit dem folgenden Excel Makro ist das möglich:
Option Explicit
Sub Schaltjahr()
Dim intfrage As Integer
intfrage = InputBox("Welche Jahreszahl soll auf Schaltjahr geprüft werden?")
If intfrage Mod 4 = 0 And intfrage Mod 100 <> 0 Or intfrage Mod 400 = 0 Then
MsgBox intfrage & (" ist ein Schaltjahr")
Else
MsgBox intfrage & (" ist kein Schaltjahr")
End If
End Sub
|
|
Zuletzt aktualisiert am Donnerstag, 24. April 2008 um 19:32 Uhr |
VBA Makro Beispiele 
