Проверка даты - Общие вопросы Delphi - Страница 2

Serge_Bliznykov · 24.01.2010, 20:28

Скандербег, +100
(только тут ещё надо через try / except отследить ситуацию, когда из значений спинов нельзя собрать валидную дату)...

Михаил Юрьевич ни в коем случае не пользуетесь кодом от Шульц. там в коде ошибка!! (помимо фокусов не учитывается, как работает IntToStr!
попробуйте для даты 2012 год 1 месяц 1-е число
d1:=strtoint(Inttostr(God1.Value)+I nttostr(Mesac1.Value)+Inttostr(Den1 .Value)); получится 201211.. а это меньше, чем сегодняшная дата!!

Скандербег · 24.01.2010, 20:39

Цитата:

Сообщение от Serge_Bliznykov

(только тут ещё надо через try / except отследить ситуацию, когда из значений спинов нельзя собрать валидную дату)...

Абсолютно согласен. Конструкция try опущена для краткости. И, если в SpinEdit для ввода месяцев и лет можно установить в свойствах корректные минимальные и максимальные значения, то для ввода дней уже сложнее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Формат даты.	agregator	Microsoft Office Excel	3	21.01.2011 14:55
Проверка даты. Firebird	artemavd	БД в Delphi	10	18.10.2009 20:14
Даты	Sparky	БД в Delphi	6	02.10.2009 09:48
ограничение даты	Alexi	Компоненты Delphi	4	21.04.2009 13:09
Даты не даты	Nasya	Microsoft Office Excel	3	22.08.2007 20:18

24.01.2010, 20:28	#11
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Скандербег, +100 (только тут ещё надо через try / except отследить ситуацию, когда из значений спинов нельзя собрать валидную дату)... Михаил Юрьевич ни в коем случае не пользуетесь кодом от Шульц. там в коде ошибка!! (помимо фокусов не учитывается, как работает IntToStr! попробуйте для даты 2012 год 1 месяц 1-е число d1:=strtoint(Inttostr(God1.Value)+I nttostr(Mesac1.Value)+Inttostr(Den1 .Value)); получится 201211.. а это меньше, чем сегодняшная дата!!