powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / дата ни проходит
6 сообщений из 6, страница 1 из 1
дата ни проходит
    #33832021
Снифф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
HI всем
у тексбокса Format D и Mask 99.99.99
на кнопе ОК сделали проверку
Код: plaintext
1.
2.
3.
4.
5.
6.
SET CENTURY ON
IF EMPTY(thisform.txtDat1.value)=.T.
=MESSAGEBOX("Дата неверна!", 48 )
thisform.txtDat1.SetFocus
RETURN
ENDIF
SET CENTURY OFF
если поставить год одной цыфрой то получется 1906 1905 и тд годы. пробовали с SET CENTURY ... TO ROLL ... и чойто нето тоже. какже верно?
...
Рейтинг: 0 / 0
дата ни проходит
    #33832049
Снифф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
блин!!!!!!! не тот кусок кода пихнул. масса извенений
Код: plaintext
1.
2.
3.
4.
5.
6.
SET CENTURY ON
IF thisform.txtDat1.value<{^ 2000 - 01 - 01 }
=MESSAGEBOX("Дата неверна!", 48 )
thisform.txtDat1.SetFocus
RETURN
ENDIF
SET CENTURY OFF
...
Рейтинг: 0 / 0
дата ни проходит
    #33832284
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Год надо ставить минимум 2-мя цифрами, тогда работает ROLL ... А если одна цифра, то первая цифра = 0, что вы и получаете.
С уважением, Алексей
...
Рейтинг: 0 / 0
дата ни проходит
    #33832500
Снифф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а чтобы одним знаком вобще нельзя сделать чтоли? ну прям никак?
...
Рейтинг: 0 / 0
дата ни проходит
    #33832522
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно, но не с помощью SET CENTURY ... TO ROLL, а спомощью своего кода.

С уважением, Алексей
...
Рейтинг: 0 / 0
дата ни проходит
    #33833460
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
IF thisform.txtDat1.value<date( 2000 , 01 , 01 )
=MESSAGEBOX("Дата неверна!", 48 )
thisform.txtDat1.SetFocus
RETURN
ENDIF
Только вот точно не помню, в какой версии появилась ф-я
Date(year,month,date)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / дата ни проходит
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]