Проверка корректности интервала дат
Добавлено: 18 мар 2013, 09:38
Здравствуйте всем!
Подскажите, пожалуйста, как грамотно осуществить проверку корректности ввода интервала дат?
Т.е. всё стандартно - есть два поля
`Период с ` .@@@@@@@@@@ ` по ` .@@@@@@@@@@
Хотелось бы, чтоб при изменении начальной даты, курсор вставал сразу на конечную, и уже после попытки выхода с конечной даты выдавал сообщение, если вдруг интервал задан некорректно...
Сначала попробовала сделать следующим образом:};
Проблема в том, что если выбираем из календаря дату, то всё нормально, а если начальную дату вводишь ручками и жмешь Enter , то сразу выходит сообщение , что 'Конечная дата не может быть раньше начальной!'. Как это исправить?:)
Подскажите, пожалуйста, как грамотно осуществить проверку корректности ввода интервала дат?
Т.е. всё стандартно - есть два поля
`Период с ` .@@@@@@@@@@ ` по ` .@@@@@@@@@@
Хотелось бы, чтоб при изменении начальной даты, курсор вставал сразу на конечную, и уже после попытки выхода с конечной даты выдавал сообщение, если вдруг интервал задан некорректно...
Сначала попробовала сделать следующим образом:
Код: Выделить всё
cmCheckField: {
case curfield of
#dfrom: {SelectField(#dto);}
end;
cmSetCurField :
{ if CurField = #dto then
{ if dto<dfrom then
{abort;
Message ('Конечная дата не может быть раньше начальной!');
}
}Проблема в том, что если выбираем из календаря дату, то всё нормально, а если начальную дату вводишь ручками и жмешь Enter , то сразу выходит сообщение , что 'Конечная дата не может быть раньше начальной!'. Как это исправить?:)