'-- Get universal Month name by parameters
'-- Author Serg. V. Sylantyev aka Silich
'--
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
'-- MonthNameExt(12,"eng",1)
Public Function MonthNameExt(iMonth&, Optional nlang$ = "rus", Optional short As Boolean = False)
MonthNameExt = ""
If Nz(iMonth, 0) = 0 Then Exit Function
Select Case nlang
Case "ukr"
MonthNameExt = Switch(iMonth = 1, "Сiчень", iMonth = 2, "Лютий", iMonth = 3, "Березень", _
iMonth = 4, "Квiтень", iMonth = 5, "Травень", iMonth = 6, "Червень", _
iMonth = 7, "Липень", iMonth = 8, "Серпень", iMonth = 9, "Вересень", _
iMonth = 10, "Жовтень", iMonth = 11, "Листопад", iMonth = 12, "Грудень")
Case "eng"
MonthNameExt = Switch(iMonth = 1, "January", iMonth = 2, "February", iMonth = 3, "March", _
iMonth = 4, "April", iMonth = 5, "May", iMonth = 6, "June", _
iMonth = 7, "July", iMonth = 8, "August", iMonth = 9, "September", _
iMonth = 10, "October", iMonth = 11, "November", iMonth = 12, "December")
Case "rus"
MonthNameExt = Switch(iMonth = 1, "Январь", iMonth = 2, "Февраль", iMonth = 3, "Март", _
iMonth = 4, "Апрель", iMonth = 5, "Май", iMonth = 6, "Июнь", _
iMonth = 7, "Июль", iMonth = 8, "Август", iMonth = 9, "Сентябрь", _
iMonth = 10, "Октябрь", iMonth = 11, "Ноябрь", iMonth = 12, "Декабрь")
Case "itl"
MonthNameExt = Switch(iMonth = 1, "Gennaio", iMonth = 2, "Febbraio", iMonth = 3, "Marzo", _
iMonth = 4, "Aprile", iMonth = 5, "Maggio", iMonth = 6, "Giugno", _
iMonth = 7, "Luglio", iMonth = 8, "Agosto", iMonth = 9, "Settembre", _
iMonth = 10, "Ottobre", iMonth = 11, "Novembre", iMonth = 12, "Dicembre")
Case "ger"
MonthNameExt = Switch(iMonth = 1, "Januar", iMonth = 2, "Februar", iMonth = 3, "Marz", _
iMonth = 4, "April", iMonth = 5, "Mai", iMonth = 6, "Juni", _
iMonth = 7, "Juli", iMonth = 8, "August", iMonth = 9, "September", _
iMonth = 10, "Oktober", iMonth = 11, "November", iMonth = 12, "Dezember")
Case "sys"
MonthNameExt = MonthName(iMonth, False)
End Select
MonthNameExt = IIf(short, Left(MonthNameExt, 3), MonthNameExt)
End Function
|
Просмотров: 8331
|
| |