//input: YEAR
LeapYear = 0
If MyYear mod 4 = 0 then
   If MyYear mod 100 = 0 then
      If MyYear mod 400 = 0 then
         LeapYear = 1
      Endif
   Else
      LeapYear = 1
   Endif
Endif
RETURN LeapYear