Maijs. 18., 2006 | 08:35 am
No:: cannibalsmith
Nekādas formulas nav, jo mēneši ir neregulāra garuma. Uztaisi masīvu menesi[1..12] ar mēnešu garumiem un
if (gads - 2000) / 4 = abs((gads - 2000) / 4) then menesi[2] := 29;
Tad dienas numuru gadā iegūsti ar ciklu
for i := 1 to month do rezultats := rezultats + menesi[i];
un beigās pieskaiti dienu sakitu.
if (gads - 2000) / 4 = abs((gads - 2000) / 4) then menesi[2] := 29;
Tad dienas numuru gadā iegūsti ar ciklu
for i := 1 to month do rezultats := rezultats + menesi[i];
un beigās pieskaiti dienu sakitu.