VBA: Ändern Sie die Anzahl der Minuten in hh: nn

Question

Für ein VBA-Programm haben wir zwei Comboboxen erstellt. Eine für Stunden, eine für Minuten. Wir haben die Stunden in Minuten umgerechnet. Mit einem Drehknopf können Stunden hinzugefügt oder subtrahiert werden. Wir haben sie auch in Minuten umgewandelt. Jetzt suchen wir nach einer Möglichkeit, die verbleibenden Minuten in eine Nachricht mit einem hh: mm Layout umzuwandeln. Wer kann uns helfen? Danke im Voraus!

--CODE ---

Private Sub CalcRT_Click() 
UtcTime.Value = ((Hours.Value * 60) + Minutes.Value) + (TimeDifference.Value * 60) End Sub 

Private Sub CalculateRT_Click() 
    If UtcTime.Value >= 1440 Then 
     UtcTime.Value = UtcTime.Value - 1440 
    ElseIf UtcTime.Value <= 0 Then 
     UtcTime.Value = UtcTime.Value + 1440 
    End If 
    Select Case UtcTime.Value 
     Case 360 To 809 
      i = 4 
     Case 510 To 839 
      i = 5 
     Case 840 To 869 
      i = 6 
     Case 870 To 899 
      i = 7 
     Case 900 To 929 
      i = 8 
     Case 930 To 959 
      i = 9 
     Case 960 To 989 
      i = 10 
     Case 990 To 1009 
      i = 11 
     Case 1010 To 1439 
      i = 12 
     Case 0 To 299 
      i = 12 
     Case 300 To 314 
      i = 13 
     Case 315 To 329 
      i = 14 
     Case 330 To 344 
      i = 15 
     Case 345 To 359 
      i = 16 
    End Select 
    MsgBox (Cells(i, 3) = Format(CalculateRT, "hh:nn")) 
    '[something like this?] MsgBox ("is " & Format(Range("C4").Value, "HH:MM")) 
End Sub 

Answer 1

So etwas ...

dim i as long 
Dim MinutesElapsed As String 

MinutesElapsed = Format(Cells(i, 3)/86400, "hh:mm") 

MsgBox MinutesElapsed, vbInformation