Народ, доброго времени суток! Вопрос простой: отчет должен подписать шеф, но: распечатать его могли сегодня, а подписать он его может только завтра, или после завтра, или через пару дней (да хе* его знает, чего у него там в голове...:):)... Короче, в отчете есть поле "ДатаПодписи" = Date(). Хотелось бы, чтоб оно вылезало с тремя символами нижнего подчеркивания вместо числа (дня) текущей даты, месяцем в родительном падеже и годе с буквой "г.", т.е. в формате "___ января 2018 г.". Стык месяцев или годов не в счет...
Думал я, думал, но чего-то хрень какую-то написал...:(:(

Public Function DateMinusDay(d As Date) As String
    DateMinusDay = "___ " & Right(CStr(Format(d, vbLongDate)), Len(Day(d)))
End Function

Помогите, а?

http://www.sql.ru/forum/1282170/ostavit-datu-den-podpisi-na-usmotrenie-shefa