Assuming thismins is required, the following result was found.
ThisHours:=(Mod(val, 86400)/3600) IfInString, ThisHours, . ThisHours:=SubStr(ThisHours, 1, InStr(ThisHours, ".")-1) ThisMins:=(Mod(val, 3600)/60) IfInString, ThisMins, . ThisMins:=SubStr(ThisMins, 1, InStr(ThisMins, ".")-1) ThisSecs:=Mod(val, 60)...