объеденение даты

[Alexi]

Подскажите пожалуйста , как сделать чтобы при смене месяца в году менялся и год в datetimepicker?datetimepicker имеет следующий вид datemode=dmUpDown

DateTime_SetFormat(DateTimePicker1. Handle, pChar('MMMMMMMMM yyyy'));
BlankDate := FALSE;

[Скандербег]

К двум событиям DateTimePicker OnChange и OnEnter привязываем процедуры:

var sMonth : Word;
  //при изменении месяца и при необходимости меняем год
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var Year, Month, Day: Word;
begin
  DecodeDate(DateTimePicker1.Date, Year, Month, Day);
  if sMonth = Month then Exit;
  if (sMonth = 12) and (Month = 1) then
    Inc(Year);
  if (sMonth = 1) and (Month = 12) then
    Dec(Year);
  DateTimePicker1.Date := EncodeDate(Year, Month, Day);
  DecodeDate(DateTimePicker1.Date, Year, sMonth, Day);
end;

  //при входе в объект DateTimePicker1 запоминаем месяц, который в нем установлен
procedure TForm1.DateTimePicker1Enter(Sender: TObject);
var Year, Day: Word;
begin
  DecodeDate(DateTimePicker1.Date, Year, sMonth, Day);
end;

Интересно, где ты откопал функцию DateTime_SetFormat?

[Alexi]

Uses CommCtrl;

Спасибо! подскажите а как их теперь правильно сравнить?

If (sMonth)<(Month)then label4.Caption:='+'else label4.Caption:='-'; когда год изменяеться сравнение происходить неправильно !

[Alexi]

всем спасибо разобрался