Zitat:

Es handelt sich um ein Schaltjahr, wenn folgende Bedingungen erfüllt sind: durch 4 teilbar ohne Rest UND durch 100 teilbar mit Rest oder durch 400 ohne Rest

Public Function IsSchaltjahr(ByVal Jahr As Integer) As Boolean
  If Jahr < 100 Then Jahr = 2000 + Jahr
  If (Jahr Mod 4 = 0) AND ((Jahr Mod 100 <> 0) Or _
   (Jahr Mod 400 = 0)) Then
    IsSchaltjahr = True
  Else
    IsSchaltjahr = False
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de