Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

TMonthCalendar   Найти похожие ветки 

← →
Appa   (2003-07-11 08:04) [0]

Как переключать программно месяц
MonthCalendar1.???????
всем сапибо

---

← →
Babay   (2003-07-11 09:54) [1]

На месяц назад

var Year, Month, Day: Word;
begin
DecodeDate(MonthCalendar1.Date,Year, Month, Day);
IncAMonth(Year, Month, Day,-1);// вот тута и отнимаешь или прибавляешь скока надо месяцев
MonthCalendar1.Date:=EncodeDate(Year, Month, Day);
end;

На месяц вперед

var Year, Month, Day: Word;
begin
DecodeDate(MonthCalendar1.Date,Year, Month, Day);
IncAMonth(Year, Month, Day,1););// вот тута и отнимаешь или прибавляешь скока надо месяцев
MonthCalendar1.Date:=EncodeDate(Year, Month, Day);
end;

---

← →
JohnnyJ   (2003-07-11 10:22) [2]

Или так:
...
MonthCalendar1.Date := IncMonth(MonthCalendar1.Date, -1);
...
MonthCalendar1.Date := IncMonth(MonthCalendar1.Date, 1);
...

---

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

Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c