Для МЕГА-програмистов, плевое дело!!!

[shadow.ms]

Предлагаю услуги по созданию программ на языках:
Borland Delphi
Visual C
Visual Basic
Pascal
C
C++
Basic
Fortran
Java и др.

[от простых лабораторных и практических работ по информатике до любого рода приложений для домашнего и корпоративного использования]

Так же вы можете заказать любой проект связанный с графикой и дизайном (работы выполняются в Corel и PhotoShop, CAD-системах, пакетах Flash-анимации), включая трехмерную визуализацию (3D Max), предлагаю свои услуги по созданию сайтов (включая скрипты на языках Perl, PHP, Java-script и программирование баз данных MySQL) и их поддержке.

Заинтересованным обращаться:
E-mail: shadow.ms(собака)mail.ru
icq: 36(шесть)92(два)791

[VictorM]

shadow.ms, или пишите в соответствующий раздел или получите бан за спам!
Уважаемые модераторы, обратите пожалуйста внимание.

[Dark]

Уважаемый Бублик!!
Разобрался с этим:

Уважаемый Dark в моем сообщение было прямо написано TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy") для форматирования даты нужно установить на любое ниженаходящееся событие. К примеру при нажатии на кнопку CommandButton29_Click() (т.е ФИО сокращено) поле даты будь оно введено вручную, выбрано из календаря будет отформатировано в "dd.mm.yyyy"
Код
Private Sub CommandButton29_Click()
TextBox24.Value = TextBox11 + " " + TextBox22 + "." + TextBox23 + "."
TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy")
End Sub

, но возник вопрос!!
Дело в том, что данный код действует при том, если мы ошиблись и написали случайно дату 05/05/2008, а как быть если в ячейку введен данный вариант 05052008?? Данный програмный код начинает "грубо ругаться матом"!!!

[VictorM]

А может разобраться с этой ситуацией более кардинальным способом?
Если поместить в модуль формы вот такой код

Код: Выделить всё

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   KeyAscii = 0 'ничего вводить нельзя
End Sub

то в текстбокс просто ничего нельзя будет ввести с клавиатуры, только выборка из календаря.
"Если враг не сдается - его уничтожают!" (с)

[Dark]

Уважаемый VictorM!!Согласен с Вами,можно поступить и так, но проще мне кажется тогда просто оставить прописанный код, а свойство ячейки Losked поставить True и все!!
В принципе это сейчас это уже не особо важно!!
Простите а никто не смог разобраться с кнопкой Оформить на последнем примере!!Это самое главное, последнее что осталось!!

[VictorM]

Dark,

свойство ячейки Losked поставить True и все!!

согласен, можно и так.

Простите а никто не смог разобраться с кнопкой Оформить на последнем примере!!

чёт забыл я про нее, надо глянуть.

[Бублик]

Уважаемый Dark немного не понял суть вопроса? ВЫ хотите чтобы данный програмный код грубо не ругался? введите обработчик ошибок ON error. Вы хотите чтобы в поле вводилась пользователем только дата а не текст? Запрограммирйте пользователя чем нибудь тяжелым или если кодом введите проверку на валидность или ввод по маске. ВЫ хотите чтобы пользователь мог вводить текст и дату и код мог понимать это - используйте строковые функции и операторы и условие. ВЫ хотите чтобы вводилась только дата - заблокируйте ручной ввод.
Ваши возможности ограничены только Вашей фантазией

[Dark]

Уважаемый Бублик!! Я бы просто хотел чтобы при вводе в поле TextBoxa4 в формате 05/05/2008 или 05052008 поле автоматически присваивало значение 05.05.2008. И еще есть один вопрос. Предположим есть поле TextBox (назовем его А) в него должны вводиться данные, а точнее расчетный счет состоящий из 20 числовых знаков. Для удобства ввода хотелось-бы чтобы поле разделяло знаки точками. Например вводим счет: 42309810000000000001, а получаем при вводе следующее: 42309.810.0000.0000.0001. Но это не обязательно, просто хочу довести все до ума!

[Dark]

МНОГОУВАЖАЕМЫЕ VictorM и Бублик!! СПАСИБО ВАМ ОГРОМНОЕ ЗА ВАШУ БЕЗМЕРНУЮ ПОМОЩЬ!!!САМ БЫ Я ДОХОДИЛ ДО ВСЕГО ЭТОГО ЕЩЕ ОЧЕНЬ ДОЛГО!! НА ВЫХОДНЫХ ПОСТОРАЮСЬ ДОВЕСТИ ВСЕ ДО УМА И ВЫЛОЖУ ЧТО ПОЛУЧИЛОСЬ!! Единственное разобраться бы с кнопкой "Оформить"!!

[Бублик]

Уважаемый Dark по поводу расчетного счета - Вам поможет строковая функция mid
она возращает определенное число символо с указанной позиции - Пример
TextBox.Value = (Mid(TextBox.Value, 1, 5) & "." & Mid(TextBox.Value, 6, 3) & ....)
Рад что ваша работа успешно заканчивается.
ЗЫ неясна проблема с кнопкой офрмить? если нужна будет помощь напишите подробнее..