Assuming thissecs is required, the following result was found.
".")-1) ThisMins:=(Mod(val, 3600)/60) IfInString, ThisMins, . ThisMins:=SubStr(ThisMins, 1, InStr(ThisMins, ".")-1) ThisSecs:=Mod(val, 60) IfInString, ThisSecs, . ThisSecs:=SubStr(ThisSecs, 1, InStr(ThisSecs, ".")-1) If ThisDays>0 { If ThisDays>365 {...