With only 8 lines of code list from 1900 to 2020 years Leap
Code: Select all
loop "1900" "2020" "[Yr]"
DateToNum "29/02/[Yr]" "d/m/y" "[Year_[Yr]]"
if "[Year_[Yr]]" "<>" "Error"
setvar "[Year_[Yr]]" "Leap"
else
setvar "[Year_[Yr]]" ""
endif
endloop
NEXT GRECIA