Assuming thishours is required, the following result was found.
} strVal= ThisDays:=val / 86400 IfInString, ThisDays, . ThisDays:=SubStr(ThisDays, 1, InStr(ThisDays, ".")-1) ThisHours:=(Mod(val, 86400)/3600) IfInString, ThisHours, . ThisHours:=SubStr(ThisHours, 1, InStr(ThisHours, ".")-1) ThisMins:=(Mod(val,...