TextBox и формат за дата

9 отговора 267 прегледа
#1

TextBox и формат за дата

имат TextBox в който въвеждам дата, но след това датата ми излиза в един смахнат формат дето мен много ме дразни - 6/12/79, пък аз искам да ми излиза - 12.06.1979 как да го направя

Електронни таблици
Отговор
в отговор на alexoff #2

Re: TextBox и формат за дата

Format(date,"както искаш да се подреждат")


Отговор
в отговор на katia~k #3

Re: TextBox и формат за дата

Гледах хелпове и какво ли още не, но не можах да се оправя. Имам някаква форма и бутон Следащ запис, когато го натисна TextBox се обновява със следващия запис и датата ми излиза във формат 6/12/79 а искам да е 12.06.1979, нещо не успях да го направя. Помагайте, не успявам да приложа Format(date,"както искаш да се подреждат") както трябва.

Електронни таблици
Отговор
в отговор на alexoff #4

Re: TextBox и формат за дата

Не се сещам така защо не става ...
прати го, ако искаш да го помисля и аз

Отговор
в отговор на alexoff #5

Re: TextBox и формат за дата

Провери какъв формат ти е зададен в Control Panеl->Regional settings за short date. Имам подозрения, че работиш с Flex Type

Отговор
в отговор на NDeu #6

Re: TextBox и формат за дата

Да работя с Flex Type, това какво влияние указва?

А иначе в Regional Setings формата ми е dd.M.yyyy г.

Електронни таблици
Отговор
в отговор на alexoff #7

Re: TextBox и формат за дата

В случая FlexType няма пряка връзка. Просто съм забелязал, че на повечето компютри с FT не са им настроени правилно режинъл сетингите, но това им е малкия проблем
В твоя случай shortdate формата е правилен. Не мога да ти дам други идеи. Не ми е ясно от къде ти идват данните, какво прави кода при занасянето им в TextBox-а.
Там трябва да има нещо от вида:
TextBox_Твоят.Value=FormatDateTime(Твоята_стойност, vbShortDate)

Отговор
в отговор на NDeu #8

Re: TextBox и формат за дата

използвам следното нещо

i = ActiveCell.Row
z = z + 1
TextBox3 = Cells(i, z).Offset(0, 1).Value

като данните ми ги взима от клетка в Sheet, където имам дата във правилен за мен формат 12.06.1979

пробвах и с FormatDateTime("12.06.1979", vbShortDate) но явно аз нещо не успявам да го направя както трябва. Като на мястото на датата слагам
Cells(i, z).Offset(0, 1).Value

Електронни таблици
Отговор
в отговор на alexoff #9

Re: TextBox и формат за дата

А-а-а, това са обекти
Трябва да е:
TextBox3.Value = FormatDateTime(Cells(i, z).Offset(0, 1).Value, vbShortDate)

Успех

Отговор
в отговор на NDeu #10

Re: TextBox и формат за дата

Мерси много, сега вече се получи :)

Електронни таблици
Отговор