Показать сообщение отдельно
  #4  
Старый 24.04.2009, 15:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

На:

Код:
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  ADate : TDateTime;
begin
  ADate := DateTimePicker1.Date;
  If FDate <> 0 Then
    Begin
      DateTimePicker1.DateTime := IncYear(ADate,(MonthOf(ADate) - MonthOf(FDate)) div -11);
    End;
  FDate := ADate;
end;

FDate - TDateTime. Надо ее инициализировать при входе в окно текущим значением в компоненте.

Да, задачка оказалась интересной.. Пришлось немного покумекать мозгами
Ответить с цитированием