Function IsLeapYear

Function IsLeapYear(&iYear As number)
If (&iYear Mod 4 = 0) And ((&iYear Mod 100 <> 0) Or (&iYear Mod 400 = 0)) Then
&IsLeapYear Value= True;
Else
&IsLeapYearValue = False;
End-If;
End Function;