Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Работа с датами   Найти похожие ветки 

← →
nnn_nsk   (2002-06-27 13:54) [0]

Как стандартными методами можно взять последнее число месяца

---

← →
Kaban ©   (2002-06-27 13:57) [1]

case Month of
1,3,5,7,8,10,12:
4,6,9,11:
2: if IsLeapYear(

---

← →
MBo ©   (2002-06-27 13:59) [2]

function LastDayOfMonth: TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
Day := 1;
if Month < 12 then Inc(Month)
else begin
Inc(Year);
Month := 1;
end;
Result := EncodeDate(Year, Month, Day) -1;
end;

(подправленный FirstDayOfNextMonth из RXLib)

---

← →
Виктор Щербаков ©   (2002-06-27 14:01) [3]

SysUtils.MonthDays[IsLeapYear][Месяц]

---

Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c