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

ник: час

Function Nomer_mes(MyDate As String) As String Dim MyMonth As Variant Dim MyMonthNom As String MyMonth = 0 On Error GoTo jsDocDateErr MyMonthNom = MyDate Select Case MyMonthNom     Case "Январь":  MyMonth = 1     Case "Февраль":  MyMonth = 2     Case "Март":  MyMonth = 3     Case "Апрель":  MyMonth = 4     Case "Май":  MyMonth = 5     Case "Июнь":  MyMonth = 6     Case "Июль":  MyMonth = 7     Case "Август":  MyMonth = 8     Case "Сентябрь":  MyMonth = 9     Case "Октябрь": MyMonth = 10     Case "Ноябрь": MyMonth = 11     Case "Декабрь": MyMonth = 12 End Select Nomer_mes = MyMonth Exit Function jsDocDateErr:     Nomer_mes = 0 End Function 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) & "________________ 200  г.": 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