Функция StrFromTimeInterval

Declare Function StrFromTimeInterval _
        Lib "shlwapi" Alias "StrFromTimeIntervalA" ( _
        ByVal pszOut As String, _
        ByVal cchMax As Long, _
        ByVal dwTimeMS As Long, _
        ByVal dwDigits As Long) As Long
StrFromTimeInterval преобразует временной интервал, заданный в миллисекундах, в строку. Временные интервалы представлены в часах, минутах и секундах, но не в днях или месяцах. Доли секунд игнорируются

Возвращаемое значение

Функция возвращает число символов в pszOut, включая завершающий нулевой символ

Параметры

pszOut
Буфер, в котором содержится получаемая строка
cchMax
Размер буфера в символах. Если параметр равен 0, то функция вернет минимально необходимый размер буфера. В этом случае буфер не будет содержать конвертированную строку
dwTimeMS
Интервал в миллисекундах
digits
Максимальное число цифр, показываемых в pszOut

Пример

Private Function GetFormattedTime(ByVal lTime As Long, Optional lDigits As Long = 4) As String
   Dim StrOut As String
   StrOut = Space(64)
   Call StrFromTimeInterval(StrOut, Len(StrOut) - 1, lTime, lDigits)
   GetFormattedTime = Trim(StrOut)
End Function

Print GetFormattedTime(Text1.Text, 2)

Категория

Shlwapi