Calendar - for "REAL" programmers: Difference between revisions
Content added Content deleted
(→{{header|Lua}}: cat cal.lua | tr [a-z [A-Z]) |
m (→{{header|Lua}}) |
||
Line 1,147: | Line 1,147: | ||
=={{header|Lua}}== |
=={{header|Lua}}== |
||
<lang Lua>FUNCTION PRINT_CAL(YEAR) |
|||
<lang Lua>FUNCTION PRINT_CAL(YEAR) |
|||
LOCAL MONTHS={"JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE", |
LOCAL MONTHS={"JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE", |
||
"JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"} |
"JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"} |
||
LOCAL DAYSTITLE="MO TU WE TH FR SA SU" |
|||
LOCAL DAYSTITLE="MO TU WE TH FR SA SU" |
|||
LOCAL DAYSPERMONTH={31,28,31,30,31,30,31,31,30,31,30,31} |
LOCAL DAYSPERMONTH={31,28,31,30,31,30,31,31,30,31,30,31} |
||
LOCAL STARTDAY=MATH.FLOOR((YEAR-1)*365.2425)%7 |
LOCAL STARTDAY=MATH.FLOOR((YEAR-1)*365.2425)%7 |
||
IF YEAR%4==0 AND YEAR%100~=0 OR YEAR%400==0 THEN |
IF YEAR%4==0 AND YEAR%100~=0 OR YEAR%400==0 THEN |
||
DAYSPERMONTH[2]=29 |
DAYSPERMONTH[2]=29 |
||
END |
END |