| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Первое-последнее число текущего месяца в DateTimePicker
Иван П. © (2005-06-06 17:06:00)Есть два DTPicker'а, нужно чтобы в первом было первое число текущего месяца, во втором - последнее. Наверняка же можно сделать покрасивее чем резать DateToStr(Date()), выдирать месяц и вгонять обратно StrToDate? Подскажете?
sniknik (2005-06-06 17:26:00) [1]dtp1.Date := StartOfTheMonth(Date());
dtp2.Date := Trunc(EndOfAMonth(Date()));
jack128 (2005-06-06 17:20:00) [2]procedure SetMonthYear(Month, Year: word);
begin
dtp1.Date := EncodeDate(Year, Month, 1);
dtp2.Date := EncodeDate(Year, Month, MonthDays[IsLeapYear(Year), Month]);
end;
| |
