 Разработка, производство и продажа радиоэлектронной аппаратуры  |
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс. e-mail:jobsmp@pochta.ru |
{-----------------------------------------------------------------}
function isVisocosn(year:word):boolean;
begin
if (frac(year/4)=0) and (frac(year/1000)<>0) then Result:=True
else Result:=False;
end;
{-----------------------------------------------------------------}
function MonthDay(month:byte;year:word):byte;
begin
case month of
1,3,5,7,8,10,12:
Result:=31;
4,6,9,11 :
Result:=30;
2 :
begin
if (isVisocosn(year)) or (year=2000) then Result:=29 else Result:=28;
end;
else
Result:=30;
end;
end;
{-----------------------------------------------------------------}
function WeekDay(var data):byte;
var i:integer;
kolday:longint;
d:DataTyp absolute data;
nomer_day:byte;
begin
With d do begin
kolday:=longint((yy-1) div 4)*366+
longint((yy-1)-((yy-1) div 4))*365
-(yy div 1000);
for i:=1 to mm-1 do inc(kolday,MonthDay(i,yy));
inc(kolday,dd);
if(yy>=2000) then inc(kolday);
nomer_day:=byte(kolday-(kolday div 7)*7);
if nomer_day=0 then nomer_day:=7;
end;
Result:=nomer_day;
end;
