| Вопрос: Формат даты | Добавлено: 14.11.05 20:26 |
Автор вопроса:  Роман
|
|
Как сделать так, чтобы дата формата "01 Января 2005 г." изменилась на "01.01.2005"? CDate и CVDate преобразуют только "01 Января 2005", т.е. без "г.".А с "г." пишет - "несоответствие типов".
|
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 14.11.05 21:24 |
|
MsgBox Date
? Или тебе имено преобразовать? |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 14.11.05 21:31 |
|
Если в строке, то
Private Sub Form_Load()
d$ = "01 Января 2005 г." d$ = Replace(d$, " Января ", ".01." 
d$ = Replace(d$, " Февраля ", ".02."
'd$ = Replace ... все месяцы короче... d$ = Replace(d$, "г.", ""
MsgBox d$ End Sub А может и встроеная есть, влом искать.. 
|
||
|
Номер ответа: 3 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #3 | Добавлено: 15.11.05 06:34 |
|
format(date,"dd.mm.yyyy"
|
||
|
Номер ответа: 4 Автор ответа: XPress ICQ: 249007960 Вопросов: 3 Ответов: 8 |
Профиль | | #4 | Добавлено: 15.11.05 10:18 |
|
а можно еще и вот так:
a = DateSerial(Year(Date), Month(Date), Day(Date)) Но это уже на твое усмотрение
|
||
Страница: 1 |