| |
|
|
| | Пожалуйста, не поможете с проблемой вывода длинного формата даты.
Сама дата задается в форме с меню "1 сентября 2008 г.", все нормально.
В отчете нужно вывести эту дату, например " с 1 сентября 2008 г." и в поле данные указываю констукцию следующего вида:
="c " & Format([Формы]![Печать подразделений]![Поле0];"Длинный формат даты")
Получаем почему-то в отчете дату такого вида: "с 1 Сентябрь 2008 г." | |
| |
| |
| |
|
|
| | Самый наверное простой вариант:
Перед полем с датой поставить Label с Caption="c ". А в самом поле поставить длинный формат даты и выравнивание слева. | |
| |
| |
| |
|
|
| | ИМХО надо сентябрь написать сентября
Если вопрос в этом тогда нужно создавать собственную ф-ию | |
| |
| |
| |
|
|
| | точно
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([ | |
| |
| |
