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

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; 

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

  • Забугоный блогер решил поделиться методом правильной уборки квартиры. модели секс смотреть смотреть бесплатно , фото порно взрослых и пожилых женщин http://devstvennici-porno.ru/
  • Hello. You are not right. I am assured. I can prove it. Write to me in PM, we will communicate. Welcome to my project skjdfbhjhbdhsy44fbdfhjdbfv
  • http://bit.ly/2ILfynJ - Рецепты

Счетчики