VPF::Как в Excel 2000 отобразить фотмат даты в виде

Валк

Дата 28.8.2006, 12:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

В Microsoft Office XP (Excel) можно задать формат даты в виде:
28 августа 2006
А в Microsoft Office 2000 (Excel) формат стандартными средствами можно задать только в виде:
28 Август 2006
Существуют ли возможности задать формат в более читабельном виде, как в первом случае? Или может какой макрос уже кем-то создан?

ИгнатьевАлексей

Дата 28.8.2006, 14:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Набросал, от нечего делать. Может поможет?

Код


Function monthXP(ByVal subMonthName) As String

   Dim oldMonthes(11) As String
   Dim newMonthes(11) As String
   Dim n As Integer
   
   oldMonthes(0) = "Январь"
   oldMonthes(1) = "Февраль"
   oldMonthes(2) = "Март"
   oldMonthes(3) = "Апрель"
   oldMonthes(4) = "Май"
   oldMonthes(5) = "Июнь"
   oldMonthes(6) = "Июль"
   oldMonthes(7) = "Август"
   oldMonthes(8) = "Сентябрь"
   oldMonthes(9) = "Октябрь"
   oldMonthes(10) = "Ноябрь"
   oldMonthes(11) = "Декабрь"
   
   newMonthes(0) = "января"
   newMonthes(1) = "февраля"
   newMonthes(2) = "марта"
   newMonthes(3) = "апреля"
   newMonthes(4) = "мая"
   newMonthes(5) = "июня"
   newMonthes(6) = "июля"
   newMonthes(7) = "августа"
   newMonthes(8) = "сентября"
   newMonthes(9) = "октября"
   newMonthes(10) = "ноября"
   newMonthes(11) = "декабря"
  
   monthXP = subMonthName ' а сл.,если в строке не будет "старого месяца" - вернем строку
   
   For n = 0 To 11
      If InStr(1, subMonthName, oldMonthes(n)) <> 0 Then
          monthXP = Replace(subMonthName, oldMonthes(n), newMonthes(n))
          Exit For
      End If
   Next
   
End Function


Sub TEST()
   Range("A1").Value = monthXP(Range("A1").Value) 'изменяем формат месяца в "А1" тек.книги
End Sub

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

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

Izuver

Дата 28.8.2006, 19:52 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

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

А что в 2000 не работает формат"[$-FC19]дд ММММ гггг"

Это сообщение отредактировал(а) Izuver - 28.8.2006, 19:56

Валк

Дата 29.8.2006, 11:27 (ссылка)

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

Загрузка ...

Шустрый

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

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

Izuver
А что в 2000 не работает формат"[$-FC19]дд ММММ гггг"
С неё и начал. Работать отказалась. Если у кого работает, то прошу указать версию Microsoft Office 2000 (какой SP и т. п.)

Валк

Дата 4.9.2006, 14:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

Проблему решил использованием макроса:

Код

Sh_Data.Cells(2, 2) = Format(Sh_Input.Cells(13, 2), "«dd» mmmm yyyy")

*Команда Format

Это сообщение отредактировал(а) Валк - 4.9.2006, 14:04

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