RosettaCodeData/Task/Leap-year/Run-BASIC/leap-year.basic

2 lines
91 B
Plaintext

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