Главная страница
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.021 c
3-47084
Ord3f8h
2002-06-18 14:37
2002.07.15
Посоветуйте как лучше организовать клиент-серверное приложение


7-47829
SemFLY
2002-04-21 18:51
2002.07.15
Возможно ли внести в реестр скрытую запись ?


1-47247
Валет
2002-06-28 14:42
2002.07.15
Bmp


14-47751
galik
2002-06-12 18:22
2002.07.15
Где найти?


14-47735
vads
2002-06-09 09:22
2002.07.15
Кто-нибудь работал со cмарт-картами и card-reader ами ???