Android Code Snippet [B4X] Calculating the next scheduled time

Sub controlla_db
    Dim Cursor1 As Cursor
    listaPian.Initialize
    Cursor1 = Sql1.ExecQuery("SELECT * FROM Pianificazione ORDER BY Ora, Minuti ASC")
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
        ora = Cursor1.GetInt("ora")
        minuti  = Cursor1.GetInt("minuti")/60
        Log(minuti)
        oraminuti = ora + minuti
        listaPian.Add(oraminuti)
       
    Next
    Log(listaPian.Get(1))
   
    Dim t As Long = FindNextTime(listaPian)
    Log($"Next time is: $Time{t}"$) 
End Sub

Sub FindNextTime(Times As List) As Long
   Times.Sort(True)
   For Each st As Double In Times
     If SetHours(st) > DateTime.Now Then
       Return SetHours(st)
     End If
   Next
   Return DateTime.Add(SetHours(Times.Get(0)), 0, 0, 1)
End Sub

Sub SetHours(st As Double) As Long
   Dim hours As Int = Floor(st)
   Dim minutes As Int = 60 * (st - hours)
   Return DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), _
       DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), hours, minutes, 0)
End Sub