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

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;

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

  • Tacwolf chaturbate threesome videos with lexi and jordin Alexi and lexi lapetina African albino breasts pussy pics Erection rub in formulas for penis Leukocyte test strip results Fat people falling down stairs Naked middle aged woman Espiando a mis suegros cuando cojen casero Amateur romantic sex...
  • Exotic escorts erotic escorts southbend indiana Tanya cyntheria playing with cum Free german wives girlfriends sex videos Dick content golf micjigan Free teen panties links What are sex beads Treatment to quit smoking Indian teen wet pussy Average size of male dick Cleft chin women naked Husbands...
  • Homemade teen tubes free Gay spas los angeles Japanese whore giving blowjob to big dicked customer Inspirational sex and the city quotes Embed creaming japanese teens Naked mardi gras men Fat sissy boy fucked by raw bbc Bare bottom over the knee spanking story Casssidy the hustler vs cassidy the...