Как преобразовать дату в неделю?
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;
4767 просмотров | Tags: - Расчет треугольника (13570)
- Калькулятор логических функций (13392)
- Обучающая программа по алгебре "Glance" (5559)
- Таблица умножения в мультфильмах (5441)
- Обучающая программа по арифметике Sapling (3427)
- Тела вращения (Rotation bodies) (2663)
- Магический квадрат (2113)
- Таблица деления в мультфильмах (2042)
- Тестирующая программа по физике PhysicsTest (1786)
- Тестирующая программа по информатике HardTest (1705)
- Тестирующая программа по зоологии AnimalsTest (1653)
- Тестирующая программа по информатике InfTest (1497)
- Тестирующая программа по киноискусству StarsFilmsTest (535)
- Тестирующая программа по звездам эстрады StarsMusicTest (511)
- Тестирующая программа по информатике InfTest (1)
-
Гостевая книгаvitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
-
Гостевая книгаerectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
-
Гостевая книгаed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online