hat jemand einen VBA Code zur korrekten Ermittlung eines Scahltjahres?

Z.B:
Dim leapYear As Boolean
If Year(Ende) / 4 - Round(Year(Ende) / 4) = 0 Then 'weitere Bedingungen fehlen
leapYear = True
End If

reicht nicht ganz aus...

Vielen Dank

Sebastian