Вычисление дня недели
- 10 a% = ((14 - mon%)/12)
- 20 y% = year% - a%
- 30 m% = mon% + 12 * a% - 2
- 40 d% = 7000 + (day% + y% + y%/4 - y%/100 + y%/400 + (31 * m%)/12)
- 50 data% = mod(d%,7)
- 60 print data%
day% - день
mon% - месяц
year% - год
Результат:
0 - воскресенье
1 - понедельник и т.д.
mon% - месяц
year% - год
Результат:
0 - воскресенье
1 - понедельник и т.д.
