Помощь - Поиск - Пользователи - Календарь
Полная версия: Проверка дат
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
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 - то все нормально. Если же нет - значит, предпринимай какие-то действия, которые тебе надо предпринять, если даты не входят в интервал
Atreides
Цитата(IUnknown @ 17.04.2012 11:14) *

У этого компонента есть событие OnChanged, в нем и проверяй. Скажем, так:
var
SelectedData : TDate;
Ok : Boolean;
// ...
SelectedData := (Sender as TDBDateTimeEditEh).Value;
Ok := (IncYear(Now, 5) >= SelectedData) and (IncYear(Now, -5) <= SelectedData);

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

не знает оператор IncYear
IUnknown
Uses ..., DateUtils;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.