Проверка дат, Проверка дат на плюс\минус от текущей даты Опции

[Atreides]

Уважаемые, подскажите, как можно организовать проверку вводимых дат на плюс\минус пять лет от текущей, перефразирую, т.е. чтобы вводимая дата оказалась в интервале плюс\минус 5 лет от текущей даты. Для ввода дат использую DBDateTimeEditEh.

[IUnknown]

У этого компонента есть событие OnChanged, в нем и проверяй. Скажем, так:

var
   SelectedData : TDate;
   Ok : Boolean;
// ...
   SelectedData := (Sender as TDBDateTimeEditEh).Value;
   Ok := (IncYear(Now, 5) >= SelectedData) and (IncYear(Now, -5) <= SelectedData);

Если Ok - то все нормально. Если же нет - значит, предпринимай какие-то действия, которые тебе надо предпринять, если даты не входят в интервал