Конференция VBStreets

**Dummiel** » 29.03.2007 (Чт) 15:21

Хай, други мои!

Вот как это правильно сделать? IsDate(txtBox.Text) ясно не подходит. Брать содержимое окна по Lost_Focus() и проверять типа Format(текстбокс, "hh:mm") - дает ошибки. FormatDateTime тоже чегой-то не идет. А что в БД вводить, если юзер ошибся, а поле в ней формата "дата"?

Что-то по поиску не сумел найти. GSerg как-то сказал, что не умеем искать... :oops:

Видно, не научился.

С уважением - Dummiel

**Viper** » 29.03.2007 (Чт) 15:26

А чем IsDate плох в Lost_Focus или где еще?

**Kostyan** » 29.03.2007 (Чт) 15:28

Используй Microsoft Masked Edit ActiveX

**Kostyan** » 29.03.2007 (Чт) 15:32

!Viper! писал(а):А чем IsDate плох в Lost_Focus или где еще?

IsDate возвращает True когда вводишь не только время, но и дату, причем в любом доступном формате.
Т.е. если введут 22:10 - вернет True,
22-10 - True
22.10 - True
22/10 - True
22/10.00 - true

И что именно ввел пользователь, не понятно.

**GSerg** » 29.03.2007 (Чт) 16:37

Dummiel, программирование - это когда из кирпичиков собирается целое. В процессе поисков подходящих кирпичиков используется моск (алб. мозг). Так эффективнее.
Моск подсказывает, что есть оператор like, который тебе должен быть известен. like "##:##" - нет? А почему нет? А по-моему да. Осталось только, в случае успеха с like, проверить, чтобы то, что до двоеточия, было от 00 до 23, а после - от 00 до 59.
Хорошо, ты не знаешь про Like. Но ты знаешь про len, которым можно проверить, что длина строки равна 5, про instr, которым можно найти в ней двоеточие и убедиться, что оно на позиции 3 - или про mid, которым можно сразу посмотреть, не равен ли символ 3 двоеточию? Про left и right, которыми можно взять две первые и две последние цифры и посмотреть, цифры ли это, функцией isnumber? С последующей проверкой на диапазон значений?
А ты вместо этого применяешь прямо обратные функции форматирования в строку, а не из неё - почему?.. Это же не тонкости, а совсем наоборот. А ты занимаешься VB давно.

**Andrey Fedorov** » 29.03.2007 (Чт) 17:50

Дык эта:

Код: Выделить всё: d Like "[0-2]#:[0-6]#" or d Like "#:[0-6]#"

**tyomitch** » 29.03.2007 (Чт) 17:55

ага, 25:61

**Andrey Fedorov** » 29.03.2007 (Чт) 18:10

tyomitch писал(а):ага, 25:61

Все бы придираться:

Код: Выделить всё: d Like "[0-1]#:[0-5]#" or d Like "#:[0-5]#" or d Like "2[0-3]:[0-5]#"

**Dummiel** » 30.03.2007 (Пт) 19:52

Люди, никто GSerg'а прибить не пробовал?

Прям руки чешутся! Или у него лично ко мне что-то есть? Другим вроде без яда отвечает!

В и-нете копался, контрол нашел. Интересный, кстати. И как раз, то что нужно, и все яды GSerg'а в нем реализованы.

**Dummiel** » 30.03.2007 (Пт) 19:55

Кстати, GSerg! Для интереса почитай мои самые первые вопросы по VB. По сравнению с ними сложность моих запросов намного выросла!

**GSerg** » 30.03.2007 (Пт) 20:25

Dummiel писал(а):Или у него лично ко мне что-то есть?

Не к тебе, а к вопросам, на которых можно смело ставить печать "Не думал".

Dummiel писал(а):Другим вроде без яда отвечает!

Зависит от вопроса.

Dummiel писал(а):В и-нете копался, контрол нашел. Интересный, кстати.

Стандартный контрол DTPicker не нашёл?..

**Andrey Fedorov** » 30.03.2007 (Пт) 21:15

GSerg писал(а):Стандартный контрол DTPicker не нашёл?..

А это глюкавая бяка. К тому же ему время нужно, а не дата.

Конечно, самому под время контрол сделать совсем просто...

**GSerg** » 30.03.2007 (Пт) 21:29

Andrey Fedorov писал(а):А это глюкавая бяка.

Обоснуйте (ц)

Andrey Fedorov писал(а):К тому же ему время нужно, а не дата.

Задав проперть .Format=dtpTime, мы начинаем мочь вводить туда время.

**Andrey Fedorov** » 30.03.2007 (Пт) 21:48

GSerg писал(а):Обоснуйте (ц)

Свойство DataChanged у него не работает.

**GSerg** » 30.03.2007 (Пт) 22:14

Возможно; в качестве привязанного его не употреблял.

**Andrey Fedorov** » 30.03.2007 (Пт) 22:20

GSerg писал(а):Возможно; в качестве привязанного его не употреблял.

В качестве привязанных и я не употребляю, тем не менее это свойство использую у всех контролов.

**VVitafresh** » 30.03.2007 (Пт) 22:35

Andrey Fedorov писал(а):Свойство DataChanged у него не работает.

В смысле просто Change? Если оно, то вроде работает :roll:

Может это раньше глючило до последнего шестого сервиспака?

Хотя в проекте под заказ я использовал NeoCalendar -- он посимпатичнее будет и дает возможность указать, что никакая дата не выбрана (при работе с БД бывает нужно).

AndreyFedorov, а какой контрол ты используешь?

**GSerg** » 30.03.2007 (Пт) 22:38

VVitafresh, есть разница между свойством и событием.

**VVitafresh** » 30.03.2007 (Пт) 22:39

GSerg писал(а):VVitafresh, есть разница между свойством и событием.

Сорри, перепутал :oops:

**Dummiel** » 31.03.2007 (Сб) 8:22

GSerg писал(а):
Dummiel писал(а):Или у него лично ко мне что-то есть?

Не к тебе, а к вопросам, на которых можно смело ставить печать "Не думал".

Dummiel писал(а):Другим вроде без яда отвечает!

Зависит от вопроса.

Dummiel писал(а):В и-нете копался, контрол нашел. Интересный, кстати.

Стандартный контрол DTPicker не нашёл?..

Уел!

Ну по всем параметрам - УЕЛ! :lol:

1. Согласен, не думал! А как выложенный мною контрол нашел, понял, что не так уж и тяжело. Просто я больше практик, чем теоретик!

2. Без ответа.

3. Честно - не искал, даже не знал, что такой есть. Скинь ссылочку, please!

**GSerg** » 31.03.2007 (Сб) 10:53

Как скинуть ссылочку на стандартный контрол? :roll:

Ctrl+T, Microsoft Windows Common Controls-2.

**Andrey Fedorov** » 31.03.2007 (Сб) 13:48

VVitafresh писал(а):а какой контрол ты используешь?

Самописный, но не мой а конторы с которой когда-то работал. Так как добра на раздачу от них не было, то отдать его не могу...

**Dummiel** » 01.04.2007 (Вс) 18:30

GSerg писал(а):Как скинуть ссылочку на стандартный контрол?
Ctrl+T, Microsoft Windows Common Controls-2.

Конференция VBStreets

Проверка корректности ввода времени в текстбокс

Проверка корректности ввода времени в текстбокс

Кто сейчас на конференции