8 lines
151 B
Text
8 lines
151 B
Text
|
Procedure isLeapYear(Year)
|
||
|
|
If (Year%4=0 And Year%100) Or Year%400=0
|
||
|
|
ProcedureReturn #True
|
||
|
|
Else
|
||
|
|
ProcedureReturn #False
|
||
|
|
EndIf
|
||
|
|
EndProcedure
|