Как преобразовать дату в неделю?

function DateToWeek(toDate: String): Integer;
var  frstDay, toDay : TDateTime;  week : Integer;
begin
frstDay := StrToDate('1/1/96');
toDay := StrToDate(toDate);
week := Trunc((toDay - frstDay) / 7) + 1;
Result := week;
end; 

Последние комментарии

Счетчики