Последний день месяца

← →
aht © (2006-10-02 14:00) [0]

помогите вспомнить сабжевую функцию, плиз

← →
Sergey13 © (2006-10-02 14:01) [1]

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

← →
aht © (2006-10-02 14:28) [2]

не, ну это понятно, но тогда надо проверку на последний месяц в году делать и т.д. и т.п., но ведь должная быть функция стандартная...

← →
SergP © (2006-10-02 14:49) [3]

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

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

← →
stone © (2006-10-02 15:17) [4]

DaysInAMonth

← →
Джо © (2006-10-03 02:27) [5]

Делаем константу-массив из 12 элементов и всех делов :)

что вы все усложняете

DateUtils

Category

date/time routines

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

во! пасибы большие!

Последний день месяца Найти похожие ветки