Определить название текущего месяца

@Shadowdk · Регистрация: 27.02.2011

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

Никак не могу разобраться как в VBA осуществить данную задачу:"С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего месяца."

@dzug · 16.10.2011, 11:50

Можно так

Visual Basic

Function dhMonthName(intMonth As Integer) As String
   ' Возвращение имени месяца по его номеру (intMonth _
   ' является номером элемента в массиве с названиями месяцев)
   dhMonthName = Choose(intMonth, "Январь", "Февраль", "Март", _
    "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", _
    "Октябрь", "Ноябрь", "Декабрь")
End Function

или
MonthName() - возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.

@~~Апострофф~~ · 16.10.2011, 12:09

Visual Basic

1	msgbox array("янв","фев","мар","апр","май","июн","июл","авг","сен","окт","ноя","дек")(m-1)

Добавлено через 18 минут
А если m=13 и n=32?

Visual Basic

1	msgbox monthname(month(dateadd("d",n,dateadd("m",m,"1.1.1990"))))

@Казанский · 16.10.2011, 16:11

Для определения названия месяца можно не использовать самодельную функцию:

Visual Basic

Sub MonName()
Dim n, m
n = -10
m = 17
MsgBox Format(DateAdd("d", n, DateAdd("m", m, "1.1.1990")), "MMMM")
End Sub

Будет выведен месяц на языке локали.

@Sasha_Smirnov · 16.10.2011, 16:47

Visual Basic

Sub DateParts()
Const M = 5     'сюда ставим количество прошедших месяцев
Const N = 10    'сюда ставим количество прошедших дней
Dim CurrentDate As Date
CurrentDate = DateAdd("m", M, #1/1/1990#) + N 'добавили M месяцев и N дней
 
MsgBox CurrentDate                      'показ получившейся даты
MsgBox DatePart("yyyy", CurrentDate)    'показ её года
MsgBox MonthName(Month(CurrentDate))    'показ названия её месяца (что мы и ищем)
MsgBox DatePart("d", CurrentDate)       'показ числа месяца
End Sub

@Shadowdk 25 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 11
		1
	Определить название текущего месяца 16.10.2011, 11:43. Показов 14803. Ответов 4 Метки нет (Все метки) Никак не могу разобраться как в VBA осуществить данную задачу:"С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего месяца." 0

	16.10.2011, 16:47