How to Convert a Numeric Value to HH:MM:SS Time Format

• Microsoft FoxPro for Windows, versions 2.5 and 2.5a
• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, and 2.5a

To convert a number of hours expressed as a numeric value to a time string of the form "HH:MM:SS", you can use the following user-defined function (UDF):

   * NTOT(<expN>)
   * Returns a string in the form "HH:MM:SS".
   * <expN> is a number of hours expressed as a numeric value between
   * 0 and 24. If <expN> is negative or greater than 24, the null
   * string is returned.

   FUNCTION NTOT
   PARAMETERS number
   PRIVATE hours,minutes,seconds,hourstring,minutestring,secondstring

   IF number < 0 OR number > 24          && Error checking
      RETURN ""
   ENDIF

   * Break number down into hour, minute, and second values
   hours=INT(number)
   minutes=INT((number-hours)*60)
   seconds=( ((number-hours)*60) - minutes ) * 60

   * Convert values to strings and pad with leading zeros if necessary
   hourstring=IIF( hours>9, LTRIM(STR(hours)), "0"+LTRIM(STR(hours)) )
   minutestring=IIF( minutes > 9, LTRIM(STR(minutes)),

   secondstring=IIF(seconds > 9, LTRIM(STR(seconds)),

   * Return completed string in the form "HH:MM:SS"
   RETURN ( hourstring +':' + minutestring + ':' + secondstring )