Работа с датами

← →
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][Месяц]

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