(365 oder Schaltjahr = 366)
Gruß aus Berlin,
Matthias
Function AnzahlTage(Jahr As Long) As Long
'gem. gregorianischem Kalender
If Jahr > 1582 And Jahr < 2100 Then
If (Jahr Mod 4 = 0 And Jahr Mod 100 <> 0) Or (Jahr Mod 400 = 0) Then
AnzahlTage = 366
Else
AnzahlTage = 365
End If
End If
End Function