Schaltjahr per vba erkennen

[Holger Kuik]

Hallo,
ich möchte per vba code aus einem Datum ermitteln, ob es
sich um ein Schaltjahr handelt. Kann mir jemand helfen?
Danke

[Melanie Breden]

Hallo Holger,

Post by Holger Kuik
ich möchte per vba code aus einem Datum ermitteln, ob es
sich um ein Schaltjahr handelt. Kann mir jemand helfen?

die folgende Funktion ist sowohl im Tabellenblatt als auch in VBA-Prozeduren einsetzbar.
Sie erwartet ein Datum und liefert für ein Schaltjahr den Wert 'True', ansonsten 'False'.

Function IstSchaltjahr(datDate As Date) As Boolean
IstSchaltjahr = Day(DateSerial(Year(datDate), 2, 29)) = 29
End Function

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]

[Jean Ruch]

"Holger Kuik" <***@siemens.com> schrieb im Newsbeitrag news:0a0b01c38812$b44fbfa0$***@phx.gbl...
Hallo,
ich möchte per vba code aus einem Datum ermitteln, ob es
sich um ein Schaltjahr handelt. Kann mir jemand helfen?
Danke

Hallo Holger,

Nur für den Fall, daß Du es eigenhändig errechnen willst:

z.B. http://www.schaltjahr.de/ :-)

mit freundlichem Gruß

Jean

[Werner Flamme/WKDV]

Post by Holger Kuik
Hallo,
ich möchte per vba code aus einem Datum ermitteln, ob es
sich um ein Schaltjahr handelt. Kann mir jemand helfen?
Danke

Ganz ausführlich:
---schnipp---

Function IstSchaltjahr(dasJahr As Integer) As Boolean
If dasJahr Mod 4 = 0 Then ' muss durch 4 teilbar sein
If dasJahr Mod 100 = 0 Then ' aber nicht durch 100
If dasJahr Mod 400 = 0 Then ' es sei denn, es ist durch 400...
IstSchaltjahr = True
Else
IstSchaltjahr = False
End If
Else
IstSchaltjahr = True
End If
Else
IstSchaltjahr = False
End If
End Function

---schnipp---
umgestellt:

Function IstAuchSchaltjahr(dasJahr As Integer) As Boolean
If dasJahr Mod 400 = 0 Then
IstAuchSchaltjahr = True
ElseIf dasJahr Mod 100 = 0 Then
IstAuchSchaltjahr = False
ElseIf dasJahr Mod 4 = 0 Then
IstAuchSchaltjahr = True
Else
IstAuchSchaltjahr = False
End If
End Function

Suchst Du vielleicht auch eine Formel zur Berechnung von Ostern? ;-)

[holger Kuik]

Wenn du die hast, dann nehme ich die auch.

-----Originalnachricht-----

Post by Holger Kuik
Hallo,
ich möchte per vba code aus einem Datum ermitteln, ob

es

Post by Holger Kuik
sich um ein Schaltjahr handelt. Kann mir jemand helfen?
Danke

---schnipp---
Function IstSchaltjahr(dasJahr As Integer) As Boolean
If dasJahr Mod 4 = 0 Then ' muss durch 4 teilbar

sein

If dasJahr Mod 100 = 0 Then ' aber nicht

durch 100

If dasJahr Mod 400 = 0 Then ' es sei denn, es ist

durch 400...

IstSchaltjahr = True
Else
IstSchaltjahr = False
End If
Else
IstSchaltjahr = True
End If
Else
IstSchaltjahr = False
End If
End Function
---schnipp---
Function IstAuchSchaltjahr(dasJahr As Integer) As Boolean
If dasJahr Mod 400 = 0 Then
IstAuchSchaltjahr = True
ElseIf dasJahr Mod 100 = 0 Then
IstAuchSchaltjahr = False
ElseIf dasJahr Mod 4 = 0 Then
IstAuchSchaltjahr = True
Else
IstAuchSchaltjahr = False
End If
End Function
Suchst Du vielleicht auch eine Formel zur Berechnung von

Ostern? ;-)

.