Ответить на сообщение

Вы отвечаете на сообщение:

ник: Lukas
Лет 5 назад срочно понадобилась такая функция, по-быстрому сваял:

Public Function funDateText(datDate As Date) As String Dim varDay As Variant Dim varMonth As Variant Dim varYear As Variant Dim intYear As Integer Const conYear As String = "две тысячи " intYear = Year(datDate) Select Case intYear Case 2001 To 2020 funDateText = "" varDay = Array("", "Первое ", "Второе ", "Третье ", "Четвертое ", "Пятое ", "Шестое ", "Седьмое ", _ "Восьмое ", "Девятое ", "Десятое ", "Одиннадцатое ", "Двеннадцатое ", _ "Тринадцатое ", "Четырнадцатое ", "Пятнадцатое ", "Шестнадцатое ", "Семнадцатое ", _ "Восемнадцатое ", "Девятнадцатое ", "Двадцатое ", "Двадцать первое ", _ "Двадцать второе ", "Двадцать третье ", "Двадцать четвертое ", "Двадцать пятое ", _ "Двадцать шестое ", "Двадцать седьмое ", "Двадцать восьмое ", "Двадцать девятое ", _ "Тридцатое ", "Тридцать первое ") varMonth = Array("", "января ", "февраля ", "марта ", "апреля ", "мая ", "июня ", "июля ", "августа ", _ "сентября ", "октября ", "ноября ", "декабря ") varYear = Array("", "первого ", "второго ", "третьего ", "четвертого ", "пятого ", "шестого ", _ "седьмого ", "восьмого ", "девятого ", "десятого ", "одиннадцатого ", "двенадцатого ", _ "тринадцатого ", "четырнадцатого ", "пятнадцатого ", "шестнадцатого ", "семнадцатого ", _ "восемнадцатого ", "девятнадцатого ", "двадцатого ") funDateText = varDay(Day(datDate)) & varMonth(Month(datDate)) & conYear & varYear(intYear - 2000) & "года" Case Else funDateText = "Дата вне интервала функции" End Select End Function

Может кому попадалось более красивое решение?

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB