Скачать: CL | DM;

Как узнать первую и последнюю дату месяца   Найти похожие ветки 

← →
kolos_rus ©   (2004-12-15 16:20) [0]

имеем
var
 d,d_first,d_last:tdatetime;
begin
  d:=date;  {текущая дата}
  d_first:= ?
  d_last:= ?
end;

---

← →
Семен Сорокин ©   (2004-12-15 16:25) [1]

uses
 DateUtils;
var
d,d_first,d_last:tdatetime;
begin
 d:=date;  {текущая дата}
 d_first:= EncodeDate(1, MonthOf(date), YearOf(date));
 d_last:= EncodeDate(DaysInMonth, MonthOf(date), YearOf(date));
end;

---

← →
kolos_rus ©   (2004-12-15 17:06) [2]

Попробовал, возникла ошибка.
Стал разбираться, оказалось, что в
EncodeDate(1, MonthOf(date), YearOf(date)); не нравится параметр YearOf(date).
Y:=YearOf(date); проходит нормально и Y имеет значение 2004.
Может ли иметь значение, что на машине установлен формат даты dd.mm.yy ? И если дело в этом, то как это обойти.

---

← →
Verg ©   (2004-12-15 17:26) [3]

> kolos_rus ©   (15.12.04 17:06) [2]
> Попробовал, возникла ошибка.
> Стал разбираться, оказалось, что в
> EncodeDate(1, MonthOf(date), YearOf(date)); не нравится
> параметр YearOf(date).


Читай справку по ф-ции EncodeDate.

---

← →
kolos_rus ©   (2004-12-15 17:34) [4]

Спасибо, уже сам разобрался.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c