Android Question Dividing Time by 3

[Alhootti]

Hi guys
how i can divide Time 09:29 by 3

 

[Erel]

What is the meaning of dividing time? What is the expected result of 9:29 / 3 ?

 

[Sagenut]

I think he want to obtain something like
3:10
3:10
3:10 (about)
Intended as 3 minutes and 10 seconds, or hours and minutes.

 

[emexes]

convert to seconds (or minutes?):

9 * 60 + 29 = 569 seconds

divide by 3

569 / 3 = 189.667 seconds

convert back to mm:ss

round to nearest: Floor(189.667 + 0.5) = 190 seconds
or round down: Floor(189.667) = 189 seconds

Floor(189 / 60) = 3 minutes
189 - 3 * 60 = 9 seconds

03:09

same math works for hh:mm as well as for mm:ss
since there are both 60 minutes in hour and 60 seconds in minute

 

[Erel]

The important point here is not to use DateTime.Time or TimeParse. These methods are relevant when working with time instances, not durations.

    Dim t As Long = ParseTimeDuration("09:29")
    t = t / 3
    Log(ConvertMillisecondsToString(t))

Private Sub ParseTimeDuration(HHMM As String) As Long
    Dim s() As String = Regex.Split(":", HHMM)
    Dim t As Long = s(0) * DateTime.TicksPerHour + s(1) * DateTime.TicksPerMinute
    If s.Length = 3 Then
        t = t + s(2) * DateTime.TicksPerSecond
    End If
    Return t
End Sub

Private Sub ConvertMillisecondsToString(t As Long) As String
    Dim hours, minutes, seconds As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
    Return $"$2.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub

 

[Alhootti]

The important point here is not to use DateTime.Time or TimeParse. These methods are relevant when working with time instances, not durations.

    Dim t As Long = ParseTimeDuration("09:29")
    t = t / 3
    Log(ConvertMillisecondsToString(t))

Private Sub ParseTimeDuration(HHMM As String) As Long
    Dim s() As String = Regex.Split(":", HHMM)
    Dim t As Long = s(0) * DateTime.TicksPerHour + s(1) * DateTime.TicksPerMinute
    If s.Length = 3 Then
        t = t + s(2) * DateTime.TicksPerSecond
    End If
    Return t
End Sub

Private Sub ConvertMillisecondsToString(t As Long) As String
    Dim hours, minutes, seconds As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
    Return $"$2.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub

yes i mean this
Thanks