Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
ВнизПервое-последнее число текущего месяца в 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c