Дата в TextBox

PavelKs Пользователь Сообщений: 353 Регистрация: 01.01.1970	#1 01.11.2010 11:13:26 Добрый день, Не пойму поведение программы: почему при вводе "05.14.2010" дата получается "14.05.2010"? Как можно исправить. Пример в файле. Спасибо. Прикрепленные файлы post_170072.xls (40.5 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 01.11.2010 11:20:31 М-да... А как называется 14 месяц? Ляптябрь? Я сам - дурнее всякого примера! ...

webley Пользователь Сообщений: 2174 Регистрация: 01.01.1970	#3 01.11.2010 11:20:42 А вы настаиваете на 14 месяце? это как - февраль года, следующего за введеным?

PavelKs Пользователь Сообщений: 353 Регистрация: 01.01.1970	#4 01.11.2010 11:26:18 Возможно - Ляптябрь, возможно - февраль года, следующего за введеным. Вариантов куча: просто хочу исключить ошибки при введении даты.

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

01.11.2010 11:39:12

Дык, экс и исправляет такую ошибку:-) Ну, можно:
Private Sub CommandButton1_Click()
Dim a
If TextBox1 = "" Then MsgBox "Пусто": TextBox1.SetFocus: Exit Sub
a = Split(TextBox1.Text, ".")
If a(1) > 12 Then MsgBox "Месяц Ляптябрь": TextBox1.SetFocus: Exit Sub
If IsDate(TextBox1) Then
TextBox2 = Format(TextBox1, "dd.mm.yyyy")
...и т.д.

Я сам - дурнее всякого примера! ...

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 01.11.2010 11:39:17 Если нужна полная проверка на правильность ввода даты, то поможет макрос The_Prist'а, вот только в каких тема лежит7

PavelKs Пользователь Сообщений: 353 Регистрация: 01.01.1970	#7 01.11.2010 11:59:28 {quote}{login=vikttur}{date=01.11.2010 11:39}{thema=}{post}... в каких тема лежит7{/post}{/quote} Сначала подумал - очередная шутка, потом нашел (тема открыта Вами) http://www.planetaexcel.ru/forum.php?thread_id=16788 Читаю, разбираюсь. vikttur, спасибо.

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#8 01.11.2010 12:59:06 Если я правильно понял вопрос, возможно так: ------------------- ... TextBox2 = TextBox1 'Format(TextBox1, "dd.mm.yyyy") ... ------------------- <FONT COLOR="CadetBlue">

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

01.11.2010 14:05:01

Сделайте календарик для выбора даты - а сам текстбокс заблокируйте для ввода вручную. Тогда ошибок не будет. <BR>Вот здесь есть пример календаря на форме: http://excelvba.ru/Fill_Invoice

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#10 01.11.2010 17:00:43 {quote}{login=PavelKs}{date=01.11.2010 11:59}{thema=Re: }{post}{quote}{login=vikttur}{date=01.11.2010 11:39}{thema=}{post}... в каких тема лежит7{/post}{/quote} Сначала подумал - очередная шутка, потом нашел (тема открыта Вами) http://www.planetaexcel.ru/forum.php?thread_id=16788 {/post}{/quote} Кстати, в той теме ZVI предлагал элемент управления DTPicker.

Читают тему