Время 507404120819

[Urvin]

Пусть у меня есть количество миллисекунд (507404120819) как мне из этого числа сделать часы - мин - сек?
12:33:44

[A.A.Z.]

Милисекунды в данном случае - тысячные доли или десятые?
Время здесь не получается: 14094,5589116389 - почему-то у меня именно столько часов получилось при делении 507404120819 на 36000000.

[skiperski]

Код: Выделить всё

Option Explicit

Public Function ms2Date(ByVal ms As Single) As Date
    ms2Date = CDate(ms / 86400000) '86400000 = 24 * 60 * 60 * 1000
End Function

Public Function test(ByVal ms As Double)
    Debug.Print Format$(ms2Date(ms), "hh\:nn\:ss")
End Function


Immediate:

Код: Выделить всё

?test(507404120819 )
17:35:24

?ms2Date(507404120819 )
28.01.1916 17:35:24

[A.A.Z.]

Браво, skiperski! Я бы (честно, без усмешек) не догадался.

[alibek]

Код skiperski покажет только время, т.е. если получится 25 часов, то он отобразит 1 час.

Код: Выделить всё

Sub CalcTime(ByVal Milliseconds As Double, Optional ByRef retHours As Long, Optional ByRef retMinutes As Long, Optional ByRef retSeconds As Long)
retSeconds = Fix(Milliseconds / 1000)
retMinutes = Fix(retSeconds / 60)
retSeconds = retSeconds Mod 60
retHours = Fix(retMinutes / 60)
retMinutes = retMinutes Mod 60
End Sub

[Urvin]

Спасибо! Да вечно преклонен буду!
Ведь никто не поверит, что не догадался...

[alibek]

Кстати, я подумал и решил что код корявый Overflow может возникать. Лучше так:

Код: Выделить всё

Sub CalcTime(ByVal Milliseconds As Double, Optional ByRef retHours As Integer, Optional ByRef retMinutes As Integer, Optional ByRef retSeconds As Integer)
Milliseconds = Fix(Milliseconds/1000)
retHours = Fix(Milliseconds/(60*60))
Milliseconds = Milliseconds - retHours*(60*60)
retMinutes = Fix(Milliseconds/60)
retSeconds = Milliseconds - retMinutes*60
End Sub