Преобразование любой даты в текст

19.05.2010, 19:03. **Показов** 7225. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу в VBA=)Дана строка S, содержащая дату в виде ДД.ММ.ГГГГ, например «14.03.2008». Разработать программу, преобразующую дату в таком виде в текстовую запись даты. Вывести в ячейку А1 активного рабочего стола строку S, а в ячейку А2 – преобразованное значение (т.е., например, «14 марта 2008 г.»), но не именно эту дату, а любую ввести? Я вот попробовала начать, но зависла=( Помогите пожалуйста решение дальше продолжить=)

Visual Basic

Sub дата()
Dim s, d As Date, i As Integer
s = InputBox("S = ")
d = Split(s, ":")
s1 = ""
Dim M(20)
M(1) = "января"
M(2) = "февраля"
M(3) = "марта"
M(4) = "апреля"
M(5) = "мая"
M(6) = "июня"
M(7) = "июля"
M(8) = "августа"
M(9) = "сентября"
M(10) = "ноября"
M(11) = "декабря"

@Toxa33rus · 20.05.2010, 10:26

Visual Basic

Dim s, d As Date, i As Integer
s = InputBox("S = ")
s_arr=split(s, ".")
Dim M(1 to 12)
M(1) = "января"
M(2) = "февраля"
M(3) = "марта"
M(4) = "апреля"
M(5) = "мая"
M(6) = "июня"
M(7) = "июля"
M(8) = "августа"
M(9) = "сентября"
M(10) = "октября"
M(11) = "ноября"
M(12) = "декабря"
 
otvet=s_arr(0) & " " & M(s_arr(1)) & " " & s_arr(2)
cells(1,1).value = s
cells(2,1).value = otvet

	20.05.2010, 10:26