Название месяца на английском языке

@Braser · Регистрация: 16.03.2013

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

Всем, привет!
Подскажите, как вывести в поле название текущего месяца на англицком?

Visual Basic

1	Me.ИДзаказ = Me.ИДИзделие & "/" & Right(Me.ПГен, 3) & "" & Left(MonthName(Format(Date, "mm")), 1)

В эту конструкцию надо очень вписать,MonthName русский вариант выдает ...
спасибо

@SDKU · 16.11.2022, 12:56

-еще одна таблица с переводом
-использовать Choose или IIF десятикратно вложенную

@Eugene-LS · 16.11.2022, 13:07

Сообщение от Braser

как вывести в поле название текущего месяца на англицком?

+ К выше написанному:
- Написать свою функцию MonthNameEN() с аргументом номера месяца в году или сразу датой как у вас по формуле идёт

@Braser · 16.11.2022, 13:28 **[ТС]**

Понятно, спасибо

@SDKU · 16.11.2022, 13:36

Visual Basic

1
2
3

Function dn(mesNumber) 'номер дня, число-ф-ция WeekDay)
mes = Choose(mesNumber, "Sandy", "Mondey", "Tuesde", "Wednesday", "Thursday", "Friday", "Saturday")
End Function

?dn(1)
Sandy
?dn (7)
Saturday

Добавлено через 7 минут
Прошу прощения написал про дни,а надо про месяцы: все так-же перечислите месяцы,а функция Month

@Eugene-LS · 16.11.2022, 13:59

Braser, про месяцы можно примерно так:

Visual Basic

Public Function MonthNameEN(vMonthNo, Optional bShort As Boolean) As String
    If bShort = False Then
        Select Case vMonthNo
            Case 1:  MonthNameEN = "January"
            Case 2:  MonthNameEN = "February"
            Case 3:  MonthNameEN = "March"
            Case 4:  MonthNameEN = "April"
            Case 5:  MonthNameEN = "May"
            Case 6:  MonthNameEN = "June"
            Case 7:  MonthNameEN = "July"
            Case 8:  MonthNameEN = "August"
            Case 9:  MonthNameEN = "September"
            Case 10: MonthNameEN = "October"
            Case 11: MonthNameEN = "November"
            Case 12: MonthNameEN = "December"
        End Select
    Else
        Select Case vMonthNo
            Case 1:  MonthNameEN = "Jan."
            Case 2:  MonthNameEN = "Feb."
            Case 3:  MonthNameEN = "Mar."
            Case 4:  MonthNameEN = "Apr."
            Case 5:  MonthNameEN = "May"
            Case 6:  MonthNameEN = "June"
            Case 7:  MonthNameEN = "July"
            Case 8:  MonthNameEN = "Aug."
            Case 9:  MonthNameEN = "Sept."
            Case 10: MonthNameEN = "Oct."
            Case 11: MonthNameEN = "Nov."
            Case 12: MonthNameEN = "Dec."
        End Select
    End If
End Function

... или так:

Visual Basic

Public Function MonthNameENG(vMonthNo, Optional bShort As Boolean) As String
    If bShort = False Then
        MonthNameENG = Choose(vMonthNo, "January", "February", "March", "April", _
            "May", "June", "July", "August", "September", "October", "November", "December")
    Else
        MonthNameENG = Choose(vMonthNo, "Jan.", "Feb.", "Mar.", "Apr.", _
            "May", "June", "July", "Aug.", "Sept.", "Oct.", "Nov.", "Dec.")
    End If
End Function

... Работает почти в двое медленнее Select Case - но обычно это не критично.

Название месяца на английском языке

Решение

Решение

@SDKU 433 / 385 / 49 Регистрация: 06.03.2022 Сообщений: 2,031
	16.11.2022, 12:56	2
	-еще одна таблица с переводом -использовать Choose или IIF десятикратно вложенную 1

@Eugene-LS 10488 / 5471 / 1377 Регистрация: 05.10.2016 Сообщений: 15,494
	16.11.2022, 13:07	3
	Сообщение от Braser как вывести в поле название текущего месяца на англицком? + К выше написанному: - Написать свою функцию MonthNameEN() с аргументом номера месяца в году или сразу датой как у вас по формуле идёт 1

@Braser 320 / 135 / 36 Регистрация: 16.03.2013 Сообщений: 1,437
	16.11.2022, 13:28 [ТС]	4
	Понятно, спасибо 0

	16.11.2022, 13:59