B4X:
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 $"$1.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub
I believe this has its limitation up to 480 hours. Anything beyond will result in error.
B4X:
Log(ConvertMillisecondsToString((864000 * 2) * 1000))
864000 * 1000 = 240 hours. if using (864000 * 3) * 1000 = -473:-02:-47