Schaltjahr VBA
17.09.2003 14:50:12
Sebastian
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