Day of the week: Difference between revisions
m
→{{header|XPL0}}
m (→using DATE iso: added a programming note concerning the ISO (date) option.) |
|||
Line 2,689:
<lang XPL0>include c:\cxpl\codes; \intrinsic 'code' declarations
int Year, Month, Day;
[if Month<=2 then [Month:= Month+12; Year:= Year-1];
| |||