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