RosettaCodeData/Task/Leap-year/Vedit-macro-language/leap-year-1.vedit
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
198 B
Text

while (#1 = Get_Num("Year: ")) {
#2 = (#1 % 4 == 0) && ((#1 % 100 != 0) || (#1 % 400 == 0))
if (#2) {
Message(" is leap year\n")
} else {
Message(" is not leap year\n")
}
}