Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
14-47677
cyborg
2002-06-17 11:37
2002.07.15
ПАМЯТЬ НЕ ОСВОБОЖДАЕТСЯ!!!


1-47389
Gari
2002-07-02 13:45
2002.07.15
Работа с DispInterface


14-47673
Hypo
2002-06-14 20:58
2002.07.15
Чем отличается TQuery от TADOQuery ?


1-47503
Вадим
2002-07-04 13:04
2002.07.15
HICON и TImageList


1-47406
Nicolay
2002-07-02 12:07
2002.07.15
Как вывести текст ?