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

Первое-последнее число текущего месяца в DateTimePicker   Найти похожие ветки 

← →
Иван П.   (2005-06-06 17:06) [0]

Есть два DTPicker"а, нужно чтобы в первом было первое число текущего месяца, во втором - последнее. Наверняка же можно сделать покрасивее чем резать DateToStr(Date()), выдирать месяц и вгонять обратно StrToDate? Подскажете?

---

← →
jack128 ©   (2005-06-06 17:20) [1]

procedure SetMonthYear(Month, Year: word);
begin
 dtp1.Date := EncodeDate(Year, Month, 1);
 dtp2.Date := EncodeDate(Year, Month, MonthDays[IsLeapYear(Year), Month]);
end;

---

← →
sniknik ©   (2005-06-06 17:26) [2]

dtp1.Date := StartOfTheMonth(Date());
dtp2.Date := Trunc(EndOfAMonth(Date()));

---

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

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



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