Android Question Hours and minutes between two times [Solved]

[Colin Evans]

Hi, is there a simple way to get the number of hours and minutes between to times,

i.e a = 08:45 and b = 12:15

so c = b - a should be 3hrs 30mins

I've looked at DateUtils but couldn't seem to figure a simple way of achieving it, any help greatly appreciated

 

[roumei]

This could help:
https://www.b4x.com/android/forum/threads/b4x-convert-milliseconds-to-string.89851/#content

 

[Mahares]

I've looked at DateUtils but couldn't seem to figure a simple way of achieving it, any help greatly appreciated

DateUtils works if you have an instance of time, like date and time. But here you only have time, so one way is to parse the 2 times:

Dim a As String = "12:15"
    Dim b As String= "08:45"
    Dim h , m As Int
    Dim t1() As String =Regex.Split(":",a)
    Dim t2() As String =Regex.Split(":",b)
    Dim t As Int = t1(0) *60 +t1(1) -t2(0) * 60 - t2(1)    
    h=Floor(t/60)
    m= t Mod 60
    Log($"${h}:${m}"$)  'will display 3:30

It would be easier if it had the date component.

 

[PoppaBart]

Try this. I used edittext fields for the times.

Sub Button1_Click
    Dim PerDiff As Period
    Dim StartHrs, StartMin, EndHrs, EndMin As Int
    
    StartHrs = edtStartHrs.Text
    StartMin = edtStartMin.Text
    EndHrs = edtEndHrs.Text
    EndMin = edtEndMin.Text
    
    Dim TimeA As Long = DateUtils.SetDateAndTime(2020, 10, 10, StartHrs, StartMin, 0)
    Dim TimeB As Long = DateUtils.SetDateAndTime(2020, 10, 10, EndHrs, EndMin, 0)
    
    PerDiff = DateUtils.PeriodBetween(TimeA, TimeB)
    
    lblAnswer.Text = PerDiff.Hours & ":" & PerDiff.Minutes

End Sub

 

[Colin Evans]

Hi Thanks for the input, I did figure it out along the lines you gave

Sub CalcHrsMins(shrs As Int, smins As Int, ehrs As Int, emins As Int)
    Dim stotalMins As Int = ((shrs * 60) + smins)
    Dim etotalmins As Int = ((ehrs * 60) + emins)
    Dim ResultMins As Int = etotalmins - stotalMins
    Log("result " & ResultMins)
    HoursDiff = ResultMins / 60
    MinsDiff = ResultMins Mod 60
End Sub

Many thanks