run FillTextBoxTime() to fill in each textbox from the seconds given.
Code:
Public Sub FillTextBoxTime()
Dim iSecs
iSecs = 28798 'aka [Autotime]
'txtDays = getTimePart(iSecs, "D")
txtHrs = getTimePart(iSecs, "H")
txtMins = getTimePart(iSecs, "N")
txtSecs = getTimePart(iSecs, "S")
End Sub
Public Function getTimePart(pvSecs, ByVal pvUoM)
Dim vTxt, sUnit
Dim iNum As Long
Const kDAY = 86400
Const kSECpYR = 31536000
Select Case pvUoM
Case "D"
iNum = pvSecs \ 86400
Case "H"
iNum = pvSecs \ 3600
Case "N"
iNum = pvSecs \ 60
Case "S"
iNum = pvSecs
End Select
Select Case pvUoM
Case "D" 'day
sUnit = "day"
If iNum > 0 Then
vTxt = vTxt & iNum & " " & sUnit
pvSecs = pvSecs - (iNum * kDAY)
End If
getTimePart = iNum & " day"
Case "H" 'hrs
sUnit = "hr"
If iNum > 23 Then iNum = 23
If iNum > 0 Then
vTxt = vTxt & iNum & " " & sUnit
pvSecs = pvSecs - (iNum * 3600)
End If
getTimePart = iNum & " hr"
Case "N" 'min
sUnit = "min"
If iNum > 0 Then
vTxt = vTxt & iNum & " min "
pvSecs = pvSecs - (iNum * 60)
End If
getTimePart = iNum & " min"
Case Else
sUnit = " secs"
getTimePart = iNum & " sec"
End Select
Exit Function
End Function