TopPicLogo TopPicText

Дата - Время в заданном формате

Иногда свойство [Формат] поля глючит - можно использовать эту функцию

Public Function StrDateTime(tTime As Date, Optional sFormat As String = "dd.mm.yyyy hh:nn") As String
'Возвращает дату (время) в заданном формате
'--------------------------------------------------------------------------
On Error GoTo StrDateTime_Err
        StrDateTime = Format(tTime, sFormat)
StrDateTime_Bye:
    Exit Function

StrDateTime_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: StrLongDate", vbCritical, "Error in module modUtils"
    Resume StrDateTime_Bye
End Function
Назад ToTop
L.E. 22.08.2016
Рейтинг@Mail.ru