Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как найти последний день месяца? [D5, Win2k]

Страницы: < 1 2
JetMan © (2004-09-20 06:50:00)
Здравствуйте уважаемые эксперты!
Подскажите, есть ли какие-нибудь функций на Delphi для нахождения последнего дня месяца, т.е. узнать сколько дней в месяце. Пример, Февраль 28(29) дней, Январь 31 и т.д.

Romkin (2004-09-20 12:12:00) [21]
ghg © (20.09.04 12:08) [7] Ты хотел сказать "Не в каждом четвертом" :)) IsLeapYear точно определяет, високосный год или нет .
Но лучше - первое число нужного месяца, incMonth и вычесть один день. Skyle © (20.09.04 09:35) [4]

ghg (2004-09-20 12:08:00) [22]
не в каждом високосном году в феврале 29 дней
если я все правильно помню

mike-d (2004-09-20 10:19:00) [23]
Еще вариант (из модуля SysUtils)
function IsLeapYear(Year: Word): Boolean; { The MonthDays array can be used to quickly find the number of days in a month: MonthDays[IsLeapYear(Y), M] } const MonthDays: array [Boolean] of TDayTable = ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

JetMan (2004-09-20 09:39:00) [24]
Спасибо!!!

Skyle (2004-09-20 09:35:00) [25]

> Как найти последний день месяца?

Первый день следующего месяца минус 1.

Warlord (2004-09-20 09:28:00) [26]
EndOfTheMonth()

TUser (2004-09-20 09:17:00) [27]
Можно использовать DaysBetween и указать первое число данного месяца и первое число следующего.

kukuikar (2004-09-20 09:14:00) [28]
нет.
пишик код, определяй какой месяц, и соответсвенно указывай последний день. незабудь реализовать проверку на высокосный год, где в феврале 29 дней.
удачи.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »