RosettaCodeData/Task/Leap-year/Run-BASIC/leap-year.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

1 line
91 B
Text

if date$("02/29/" + mid$(date$("mm/dd/yyyy"),7,4)) then print "leap year" else print "not"