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

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

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

Последний день месяца [D7, XP]

aht © (2006-10-02 14:00:00)
помогите вспомнить сабжевую функцию, плиз

aht (2006-10-03 09:28:00) [1]
во! пасибы большие!

novill (2006-10-03 09:14:00) [2]
что вы все усложняете

DateUtils

Category

date/time routines

function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

Германн (2006-10-03 02:40:00) [3]
См. RxLib
function LastDayOfPrevMonth: TDateTime;
2 Джо © (03.10.06 02:27) [5]
И не забываем про високосные годы!

Джо (2006-10-03 02:27:00) [4]
Делаем константу-массив из 12 элементов и всех делов :)

stone (2006-10-02 15:17:00) [5]
DaysInAMonth

SergP (2006-10-02 14:49:00) [6]
> [2] aht © (02.10.06 14:28)
> не, ну это понятно, но тогда надо проверку на последний
> месяц в году делать и т.д. и т.п., но ведь должная быть
> функция стандартная...

Стандартная есть. Правда непомню какая....
Но в принципе можно самому написать.
Если поXORить 0 и 3 биты номера месяца, то получим 0 для тех месяцев где 30 дней и 1 для тех где 31 (единственное исключение - февраль)

aht (2006-10-02 14:28:00) [7]
не, ну это понятно, но тогда надо проверку на последний месяц в году делать и т.д. и т.п., но ведь должная быть функция стандартная...

Sergey13 (2006-10-02 14:01:00) [8]
Первый день следующего месяца - 1.

Наверх

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