ник: час
точно
Function jsDocDate(MyDate As Variant) As String
Dim MyMonth As String
Dim MyMonthNom As Integer
'-------------------------------------------------------------------------------
On Error GoTo jsDocDateErr
If Not IsDate(MyDate) Then jsDocDate = Chr$(171) & "_____" & Chr$(187) & "_________________ 20___ г.": Exit Function
MyMonthNom = Month(MyDate)
Select Case MyMonthNom
Case 1: MyMonth = " января "
Case 2: MyMonth = " февраля "
Case 3: MyMonth = " марта "
Case 4: MyMonth = " апреля "
Case 5: MyMonth = " мая "
Case 6: MyMonth = " июня "
Case 7: MyMonth = " июля "
Case 8: MyMonth = " августа "
Case 9: MyMonth = " сентября "
Case 10: MyMonth = " октября "
Case 11: MyMonth = " ноября "
Case 12: MyMonth = " декабря "
End Select
jsDocDate = Chr(171) & Format(Day(MyDate), "00") & Chr(187) & _
MyMonth & Year(MyDate) & "г."
Exit Function
jsDocDateErr:
jsDocDate = ""
'-------------------------------------------------------------------------------
End Function
|
А если вопрос в том - почему не работает как должно длинный формат даты
Тогда читать литературу по Format([