Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Вниз
Работа с датами Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
