Ввод даты дд/мм/гггг, а не мм/дд/гггг

[uralshans]

Видил вопрос на форуме был поднят, но код
.Cells(lLastRow, "A") = Format(CDate(TextBox3.Value), "dd.mm.yyyy")
не помагает...
Ввожу в TextBox3 03.01.2013 (т.е. 3 января 2013г.) в ячейке отображается 1 марта 2013 года.

Как быть?
Очень очень надеюсь на помощь!!

[Hugo121]

Какой формат ячейки?
Что есть Format(CDate(TextBox3.Value), "dd.mm.yyyy")? Занесите это выражение в переменную и проанализируйте.

[uralshans]

Формат ячейки: ДАТА "14 мар 01"

а это:
Format(CDate(TextBox3.Value), "dd.mm.yyyy")
так сказать запись с форума..
http://www.programmersforum.ru/showthread.php?t=164173

[Hugo121]

Непонятно...
Давайте файл с текстбоксом, форматом и ошибкой.

[ikki_pf]

CDate recognizes date formats according to the locale setting of your system. The correct order of day, month, and year may not be determined if it is provided in a format other than one of the recognized date settings. In addition, a long date format is not recognized if it also contains the day-of-the-week string.

поэтому лучше поступить так:

x=split(textbox3.value,".")
.Cells(lLastRow, "A")=dateserial(x(2),x(1),x(0))

[Hugo121]

Когда я писал "что есть" - я хотел обратить Ваше внимание на значение, получаемое этой строкой. Думаю, там уже на выходе не то, что ожидалось.

[uralshans]

Без всяких изменений...

[Скрипт]

uralshans, у вас какой язык у программы Excel: русский, английский?

[uralshans]

Сообщение от Скрипт

uralshans, у вас какой язык у программы Excel: русский, английский?

Вроде бы как русский.... сделаю Скрин.

[Скрипт]

uralshans, у меня почему-то работает всё нормально. Использовал Excel 2010.

В TextBox вводил вот такой текст:
03.01.2013

В ячейке B3 данные получены кодом:

ActiveSheet.Cells(lLastRow, "B").Value = CDate(Me.TextBox1.Value)

В ячейке B4 данные получены кодом:

ActiveSheet.Cells(lLastRow, "B").Value = Me.TextBox1.Value