Доброе время суток!
Подскажите пожалуйста, как проверить ввод даты на правильность ввод,т.е пользователь начинает вводить дату 21.11.2018 (соответственно первые 2 цифры от даты 21) т.е надо проверить 21 , потом месяц проверить, и далее год.
проверка нужна для того, что бы пользователь к примеру начал набирать 55.11.2018, то соответственно на первые две цифры должно выйти предупреждение об ошибке. ну и соответственно в базе тоже должна быть проверка на первые 2 цифры, т.е. начал вводить 22, значит и должно выйти 22 число.

есть небольшой кусок кода, то что пробовал до делать
** проверка на правильность введения даты

d_vvoda = Alltrim(Thisform.text1.text)
if !empty(d_vvoda)
dd=val(substr(d_vvoda,1,2))
mm=val(substr(d_vvoda,4,2))
yy=val(substr(d_vvoda,7,4))
val=.f.
do case
case mm = 4 .or. mm = 6 .or. mm = 9 .or. mm = 11
if dd > 0 .and. dd => 30
val = .t.
endif

case mm = 1 .or. mm = 3 .or. mm = 5 .or. mm = 7 .or. mm = 8 .or. mm = 10 .or. mm = 12
if dd > 0 .and. dd => 32
val = .t.
endif

case mm = 2
if mod(yy,4) = 0
if dd > 0 .and. dd => 30
*if dd<=29
val = .t.
endif
else
if dd > 0 .and. dd => 31
val = .t.
endif
endif

endcase

if val = .t.
messageb('Неверно введена дата',16,'Ошибка ввода')
return 0
endif

Проверять-то можно тест "NN.NN.NNNN", но почему бы не сделать свойство ThisForm.Text1.value = {} (сразу тип дата), тогда фокс сам будет проверять...

В общем-то, правильная установка свойств Format и Value поля ввода полностью избавляет от необходимости изобретать очередной велосипед.





Исправлено 1 раз(а). Последнее : ssa, 22.11.18 12:17

А еще (кстати тут на форуме есть в решениях) весьма удобные датапикер-ы ... причем на нативном фоксе без всяких активиксов ...

[attachment 30339 dt.png]

Если проверять текст на изображение даты, то не обязательно воспроизводить календарь вручную. Можно, воспользоваться, например (для SET DATE GERMAN):



Исправлено 1 раз(а). Последнее : of63, 22.11.18 14:46

of63

? CTOD("10.1.18")  && возвращает пустую дату

Почему здесь то пустую?

Исправил. То букву не ту напишу, то цифру...