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

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 вся ветка

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



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