Sub ConvertSecondsToComponents(S As Long) As Int() 'days, hours, minutes, seconds
Dim NumDays As Int = S / 86400
S = S - NumDays * 86400
Dim NumHours As Int = S / 3600
S = S - NumHours * 3600
Dim NumMinutes As Int = S / 60
S = S - NumMinutes * 60
Dim NumSeconds As Int = S
Return Array As Int(NumDays, NumHours, NumMinutes, NumSeconds)
End Sub
Sub ConvertSecondsToString(S As Long) As String 'D:HH:MM:SS
Dim TC() As Int = ConvertSecondsToComponents(S)
Return $"$1.0{TC(0)}:$2.0{TC(1)}:$2.0{TC(2)}:$2.0{TC(3)}"$
End Sub