Первое-последнее число текущего месяца в 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;

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

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