And this is my Leap-year function:
'--------------------------------- Leapyear true or not Function leapyear#(aar#) ' Use year (YYYY) as arguement here Local tp If Int(aar/4) = aar/4 Then tp=True If Int(aar/100) = aar/100 Then tp=False If Int(aar/400) = aar/400 Then tp=True EndIf EndIf Return tp End Function