Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверка переменной 
V
    Опции темы
Flotskiy
Дата 18.5.2006, 06:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
Доброе утро всем!

Подскажите на такой вопрос:
в TextBox'е сделали такую  запись 
"12/06 или 123"
Как при сохранении произвести проверку
Код

Private Sub Data1_Validate(Action As Integer, Save As Integer)
    If Text1.Text не имеет на конце слэш (/) и две цифры THEN
        Text1.Text = Text1.Text & "/" & Right(Year(Date), 2)
    End If
End Sub



С уважением
 
--------------------
FlotskiySk k
PM MAIL   Вверх
boevik
Дата 18.5.2006, 07:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Text1.Text не имеет на конце слэш (/) и две цифры  эквивалент
Код

not(mid(Text1.Text ,len(Text1.Text-2),1) = "/" and isNumeric(right(Text1.Text, 2)))
 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Тутанхамец
Дата 18.5.2006, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
Оператор Like.

Код

If Text1.Text like "##/## или ###" THEN
        Text1.Text = Text1.Text & "/" & Right(Year(Date), 2)


Но маску я, скорее всего, задал неправильно, т.к. не вполне понял, какая строка тебе нужна.  


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Flotskiy
Дата 18.5.2006, 08:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
boevik 
Код

IF not(mid(Text1.Text ,len(Text1.Text[B]-[color=red][/color][/B]2),1) = "/" and isNumeric(right(Text1.Text, 2))) Then

 В данной строке выделяет "-" и выдает:
Код

Compile error:
Variable required-can't assign to this expression

Что исправить?
 
--------------------
FlotskiySk k
PM MAIL   Вверх
boevik
Дата 18.5.2006, 08:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Ну забыл закрыть скобочку, я же не компилятор.
ПО идее, должно выглядеть так:
Код

not(mid(Text1.Text ,len(Text1.Text)-2,1) = "/" and isNumeric(right(Text1.Text, 2)))
 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Flotskiy
Дата 18.5.2006, 08:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
Благодарю всех!
В отделе кадров работает моя прога на выдаче удостоверений, куда надо вставлять регистрационный номер данного документа.
Кто пишет "22" - то все норме, при сохранении автоматом добавляется "/06" (две последние цифры тек. года и получается "22/06"
 а кто "22/06" то получается "22/06/06". Ошибка

Вот так работает:
Код

    If Text1.Text Like "*#/##" Then
        Text1.Text = Text1.Text
    Else
        Text1.Text = Text1.Text & "/" & Right(Year(Date), 2)


Всего доброго   

Это сообщение отредактировал(а) Flotskiy - 18.5.2006, 09:16
--------------------
FlotskiySk k
PM MAIL   Вверх
Тутанхамец
Дата 18.5.2006, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
Работает-то оно работает, но строчка 

Код

        Text1.Text = Text1.Text


чересчур, на мой взгляд, симметрична smile 


Тогда уж:
Код

  If not (Text1.Text Like "*#/##") Then
        Text1.Text = Text1.Text & "/" & Right(Year(Date), 2)



Впрочем, это уже нюансы... smile  


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0455 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.