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;

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

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