Как вы анализируете число в миллисекундах в ЧЧ: ММ: СС - PullRequest
0 голосов
/ 10 декабря 2011

Можете ли вы сказать мне, как разобрать число в миллисекундах, например 10173510, в часы, минуты и секунды?

Возможно, отформатировано так?ЧЧ: ММ: СС

Спасибо.

Обновление: мне удалось приблизить его, но мне нужно правильно отформатировать числа, потому что мне нужны начальные нули (0), чтобы результаты выглядели как-токак это: 01:52:03 потому что код показывает 1: 52: 3.

Sub SeekBarTimeToKeepActive_ValueChanged (Value As Int, UserChanged As Boolean)

    Dim intHoursToKeepActive As Int
    Dim intMinutesToKeepActive As Int
    Dim intSecondsToKeepActive As Int

    intHoursToKeepActive = DateTime.GetHour(Value) -19
    intMinutesToKeepActive = DateTime.GetMinute(Value)
    intSecondsToKeepActive = DateTime.GetSecond(Value)

    LabelTimeToKeepActive.Text = "Length of time to keep active: " & _
        intHoursToKeepActive & ":" & intMinutesToKeepActive & ":" & intSecondsToKeepActive
End Sub

1 Ответ

1 голос
/ 19 декабря 2011

Попробуйте использовать числовой формат:

Пример:

Час = 2
Числовой формат (час, 2,0)

...