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

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; 

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

  • generic cialis no doctor's prescription https://cialmen.com prices of cialis buy viagra cialis order cialis cialis and interaction with ibutinib
  • Guys just made a web-page for me, look at the link: https://beachbags-11.webself.net/ Tell me your credentials. Thank you.
  • Guys just made a website for me, look at the link: http://ternogradu0.bloguetechno.com/--29077808 Tell me your prescriptions. Thanks.

Счетчики