Текущий архив: 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