IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Проверка дат, Проверка дат на плюс\минус от текущей даты
Atreides
сообщение 17.04.2012 7:22
Сообщение #1


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


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


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IUnknown
сообщение 17.04.2012 10:14
Сообщение #2


a.k.a. volvo877
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской

Репутация: -  627  +


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

Если Ok - то все нормально. Если же нет - значит, предпринимай какие-то действия, которые тебе надо предпринять, если даты не входят в интервал
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Atreides
сообщение 17.04.2012 11:28
Сообщение #3


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Цитата(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


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IUnknown
сообщение 17.04.2012 11:41
Сообщение #4


a.k.a. volvo877
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской

Репутация: -  627  +


Uses ..., DateUtils;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.03.2024 8:59
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"