Работа с датами
суббота, декабря 20, 2008День недели по дате
(
this code is generated by the algopascal translator
this code is distributed under the alglib license
(see http://www.alglib.net/copyrules.php for details)
uses math, ap;
function dayofweek(d : integer; m : integer; y : integer):integer;forward;
(
День недели по дате.
function dayofweek(d,m,y:integer):integer;
На входе:
дата - d (день), m (месяц), y (год).
На выходе:
номер дня недели.
Понедельник имеет номер 1,
Вторник номер 2, ...,
Воскресенье номер 7.