Revcoders

FUNCTION HMSfromSec totalSeconds, tDisplay
  put totalSeconds div 3600 into tHours
  put (totalSeconds - (tHours * 3600)) div 60 into tMinutes
  put (totalSeconds - (tMinutes * 60) - (tHours * 3600)) div 1 into tSeconds
  IF tDisplay = "hhmmss" THEN
   set the numberformat to "##"
   return tHours & ":" & tMinutes & ":" & tSeconds
  ELSE
   set the numberformat to "#"
  IF tHours = 1 THEN
   put tHours && "hour, " into tDuration
  ELSE IF tHours > 1 THEN
   put tHours && "hours, " into tDuration
  END IF
  IF tMinutes = 1 THEN
   put tMinutes && "minute, " after tDuration
  ELSE IF tMinutes > 1 THEN
   put tMinutes && "minutes, " after tDuration
  END IF
   put tSeconds && "seconds" after tDuration
   return tDuration
 END IF
END HMSfromSec