| Вопрос: Нормализовать дату | Добавлено: 07.05.07 02:32 |
Автор вопроса:  ZagZag | ICQ: 295002202 |
|
Есть строка с датой: Wed, 02 May 2007 00:00:00 +0400
Функция FormatDateTime ее не берет. Как еще можно предобрзовать ее в свой формат? Хочется преобразовать ее в 2007_05_02 00:00:00 И как быть с +0400. Это надо 4 часа к дате прибавлять? Т.е. получится 2007_05_02 04:00:00 ? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 07.05.07 07:17 |
|
Dim s As SYSTEMTIME, d As Date
InternetTimeToSystemTime "Wed, 02 May 2007 00:00:00 +0400", s, 0 d = DateSerial(s.wYear, s.wMonth, s.wDay) + TimeSerial(s.wHour, s.wMinute, s.wSecond) MsgBox Format$(d, "general date"  |
||
|
Номер ответа: 2 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 07.05.07 08:24 |
|
Спасибо, GSerg. Если работает - вообще замечательно. Вечером проверю.
|
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 07.05.07 23:29 |
|
Проверил, все работает как надо! Класс! СпасиБО, GSerg
|
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 08.05.07 12:43 |
да GSerg у нас вообще крутой чел, видал - ниодного вопроса, типа все знает 
|
||
Страница: 1 |