VPF::Есть ли такая функция? - Форум программистов

CtrlAltDeletOff

Дата 29.11.2007, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.11.2007

Репутация: нет
Всего: нет

Народ, подскажите, есть ли функция для пребразования строки вида "Tue, 27 Nov 2007" в "Вт, 27 Ноя 2007"?
Или можно ли как-то сократить код:

Код


Private Function ReplaceIt(strString As String) As String
    Dim sDay As String
    If InStr(1, strString, "Mon") <> 0 Then sDay = Replace(strString, "Mon", "Пн")
    If InStr(1, strString, "Tue") <> 0 Then sDay = Replace(strString, "Tue", "Вт")
    If InStr(1, strString, "Wed") <> 0 Then sDay = Replace(strString, "Wed", "Ср")
    If InStr(1, strString, "Thu") <> 0 Then sDay = Replace(strString, "Thu", "Чт")
    If InStr(1, strString, "Fri") <> 0 Then sDay = Replace(strString, "Fri", "Пт")
    If InStr(1, strString, "Sat") <> 0 Then sDay = Replace(strString, "Sat", "Сб")
    If InStr(1, strString, "Sun") <> 0 Then sDay = Replace(strString, "Sun", "Вс")
        If InStr(1, sDay, "Jan") <> 0 Then ReplaceIt = Replace(sDay, "Jan", "Янв")
        If InStr(1, sDay, "Feb") <> 0 Then ReplaceIt = Replace(sDay, "Feb", "Фев")
        If InStr(1, sDay, "Mar") <> 0 Then ReplaceIt = Replace(sDay, "Mar", "Мар")
        If InStr(1, sDay, "Apr") <> 0 Then ReplaceIt = Replace(sDay, "Apr", "Апр")
        If InStr(1, sDay, "May") <> 0 Then ReplaceIt = Replace(sDay, "May", "Май")
        If InStr(1, sDay, "Jun") <> 0 Then ReplaceIt = Replace(sDay, "Jun", "Июн")
        If InStr(1, sDay, "Jul") <> 0 Then ReplaceIt = Replace(sDay, "Jul", "Июл")
        If InStr(1, sDay, "Ayg") <> 0 Then ReplaceIt = Replace(sDay, "Aug", "Авг")
        If InStr(1, sDay, "Sep") <> 0 Then ReplaceIt = Replace(sDay, "Sep", "Сен")
        If InStr(1, sDay, "Oct") <> 0 Then ReplaceIt = Replace(sDay, "Oct", "Окт")
        If InStr(1, sDay, "Nov") <> 0 Then ReplaceIt = Replace(sDay, "Nov", "Ноя")
        If InStr(1, sDay, "Dec") <> 0 Then ReplaceIt = Replace(sDay, "Dec", "Дек")
End Function

Naghual

Дата 29.11.2007, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Можно убрать все ИФ и оставить Реплейсы. Результат то-же

--------------------

Я желаю всем Счастья!

CtrlAltDeletOff

Дата 30.11.2007, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.11.2007

Репутация: нет
Всего: нет

Цитата(Naghual @ 29.11.2007, 22:39)

Можно убрать все ИФ и оставить Реплейсы. Результат то-же

Блин, не подумал... Спасибо и на этом! Функции значиит нет...

Akina

Дата 30.11.2007, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Возможно, и есть.
То, на каком языке выводится DateTime, зависит от локали. А ее можно на время поменять программно... впрочем, я сам этим не занимался. Попробуй...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

JusTalionis

Дата 30.11.2007, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

CtrlAltDeletOff:
Может быть пригодятся вот эти функции:

Weekday(Date$, vbMonday) возвращает номер дня недели в виде цифры (1..7)
Month(Date$) - номер месяца (1..12)
Date$ - возвращает текущую дату в виде строки. Вместо этой функции можно использовать и непосредственно желаемую дату в виде строки.

Потом эти номера дня и месяца можно использовать как индексы массива, а в массив положить нужные названия. (Но тоже огород, конечно.)

А можно получить названия дня и месяца автоматически на языке, установленном в системе по умолчанию:

WeekdayName(Weekday(Date$)[,True]) - выдаст наименование дня по-русски, если в Винде задан русский стиль.
MonthName(Month(Date$)[,True]) - выдаст наименование месяца.
Добавление True заставит выдавать сокращенные наименования.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »