Microsoft KB Archive/101022

From BetaArchive Wiki

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

ID: Q101022

2.50 2.50a | 2.00 2.50 2.50a

WINDOWS         | MS-DOS

kbprg The information in this article applies to:

  • 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)),

"0"+LTRIM(STR(minutes)) )

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

"0"+LTRIM(STR(seconds)) )

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

Additional reference words: FoxDos FoxWin 2.00 2.50 2.50a 2.x TTON KBCategory: kbprg KBSubcategory: FxprgGeneral

Keywords          : FxprgGeneral 
Version           : 2.50 2.50a | 2.00 2.50 2.50a
Platform          : MS-DOS WINDOWS

Last Reviewed: April 30, 1996
© 1999 Microsoft Corporation. All rights reserved. Terms of Use.