Текущий архив: 2004.03.03;
Скачать: CL | DM;
Вниз
Последний день месяца Найти похожие ветки
← →
Harm (2004-02-19 16:34) [0]Как вычислить?
← →
Sam Stone © (2004-02-19 16:42) [1]Тебе на какой день выпадет?
Тогда так:
DayOfTheWeek(IncDay(StartOfTheMonth(incMonth(now)),-1));
← →
Семен Сорокин © (2004-02-19 16:42) [2]DaysPerMonth
← →
CTAPbIi (2004-02-19 16:45) [3]function LastDayOfMonth(dt: TDate): TDate;
var
d,m,y: word;
begin
DecodeDate(IncMonth(dt,1),y,m,d);
Result:=EncodeDate(y,m,1)-1;
end;
← →
Курдль © (2004-02-19 16:53) [4]А help почитать?
//-----------------------------------------------------
DateUtils
Category
date/time routines
function EndOfAMonth(const AYear, AMonth: Word): TDateTime;
Страницы: 1 вся ветка
Текущий архив: 2004.03.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
