Уважаемые, подскажите, как можно организовать проверку вводимых дат на плюс\минус пять лет от текущей, перефразирую, т.е. чтобы вводимая дата оказалась в интервале плюс\минус 5 лет от текущей даты. Для ввода дат использую DBDateTimeEditEh.
У этого компонента есть событие OnChanged, в нем и проверяй. Скажем, так:
var
SelectedData : TDate;
Ok : Boolean;
// ...
SelectedData := (Sender as TDBDateTimeEditEh).Value;
Ok := (IncYear(Now, 5) >= SelectedData) and (IncYear(Now, -5) <= SelectedData);
var
SelectedData : TDate;
Ok : Boolean;
// ...
SelectedData := (Sender as TDBDateTimeEditEh).Value;
Ok := (IncYear(Now, 5) >= SelectedData) and (IncYear(Now, -5) <= SelectedData);
Uses ..., DateUtils;