В развитие темы автоматическая вставка даты в нужном падеже

[ХочуЗнать]

Всем привет!
doob спасибо! Ваш вариант хорош, но речь то идет о дате Сегодня, которая должна отображаться на самой форме календаря. Смотрите пожалуйста вверху самой формы. Там пишется 6 Листопад 2009 року, а надо 6 листопада 2009 року.
Спасибо!

[doober]

На кнопку я повесил пример использования,вместо сегодня можно поставить любую дату и вставить куда угодно по Вашему усмотрению.Там все понятно
Применение

Private Sub CommandButton2_Click()
MsgBox (meDateFormat(CDate("12.12.2012"), 10))
End Sub

Получите 12 грудня 2012

[ХочуЗнать]

Это вам, как професионалу все понятно! А вот у мою башку че то не доходит. Поэтому, если вам это не в тягость,вставте, будь ласка, все это в мой календарик.И ради Бога! Извините меня за такую большую наглость.

[doober]

Смотрите,то что хотели

[Teslenko_EA]

Здравствуйте ХочуЗнать.
Предлагаю Вам ознакомиться с конструкцией календаря созданного с применением библиотеки Microsoft - mscomct2.ocx.
Файл - Выбор даты.rar 14.05 кб содержит надстройку, после подключения которой в контекстном меню листа Excel создается строка Календарь для вызова квлендаря. Календарь "работает" с текущей активной ячейкой изменяя дату хранящуюся в ней или внося значение даты выбранного (возможно текстового) формата.
Код надстройки доступен для изучения и изменения поупражняйтесь, библиотека mscomct2.ocx, скорее всего в Вашей системе присутствует, если нет, не огорчайтесь она свободно распространяется.
Мне интересно как она относится к Украинскому языку.

to doober.
я позволил себе "подредактировать" Вашу функцию meDateFormat

Public Function meDateFormat(ByVal ValDate As Date)
Const sName = ",січня,лютого,березня,квітня,травня,червня,липня,серпня,вересня,жовтня,листопада,грудня"
Dim sArr() As String
sArr = Split(sName, ",")
meDateFormat = Format(ValDate, "dd ") + sArr(Month(ValDate)) + Format(ValDate, " yyyy")
End Function

прошу Вас проверить ещё одну

Function meDateFormat(sDate$) As String
If IsDate(sDate) Then
    s = Format(sDate, "mmmm")
    Select Case Month(sDate)
    Case 2:    s = Left(s, 3) + "ого"
    Case 11:    s = s + "а"
    Case Else:    s = Left(s, Len(s) - 3) + "ня"
    End Select
    toMonth = Format(sDate, "dd ") + s + Format(sDate, " yyyy")
End If
End Function

на предмет корректной работоспособности в "Украинской" системе.
Евгений.

[ХочуЗнать]

СПАСИБо вам большущее!
Буду изучать