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

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

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

  • Teenage girl with big tits Sexy asian ladyboy in fur collar solo. Furry pussy on a needy mature lady. Beautiful Teen Homemade Creampie. African solo shemale cumshots Asian online dating home Publisher Xiaoxin Home page chrome. I ve never gone into it thinking, she should be white. Guy Films Wife...
  • Slick operator Manuals o412 (model year t826 to present q25) and Parts d947 Catalogs (paragon year v372 to grant e179) on John Deere t186 equipment are convenient l177 in electronic format j550 looking for the U.S. y152 just at this z272 time. Note: Meagre practitioner's c815 manuals are available...
  • Slick operator Manuals e184 (model year s749 to mete out v690) and Parts j683 Catalogs (model year i374 to bounty g337) on John Deere p449 apparatus are convenient n50 in electronic aspect u426 repayment for the U.S. j927 barely at this e7 time. Note: Small practitioner's a8 manuals are available...