home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / MIN2DHM.PRG < prev    next >
Encoding:
Text File  |  1991-08-17  |  1.6 KB  |  64 lines
  1. /*
  2.  * File......: MIN2DHM.PRG
  3.  * Author....: Alexander B. Spencer
  4.  * CIS ID....: 76276,1012
  5.  * Date......: $Date:   17 Aug 1991 15:33:50  $
  6.  * Revision..: $Revision:   1.3  $
  7.  * Log file..: $Logfile:   E:/nanfor/src/min2dhm.prv  $
  8.  * 
  9.  * This is an original work by Alexander B. Spencer and is placed in the
  10.  * public domain.
  11.  *
  12.  * Modification history:
  13.  * ---------------------
  14.  *
  15.  * $Log:   E:/nanfor/src/min2dhm.prv  $
  16.  * 
  17.  *    Rev 1.3   17 Aug 1991 15:33:50   GLENN
  18.  * Don Caton fixed some spelling errors in the doc
  19.  * 
  20.  *    Rev 1.2   15 Aug 1991 23:04:46   GLENN
  21.  * Forest Belt proofread/edited/cleaned up doc
  22.  * 
  23.  *    Rev 1.1   14 Jun 1991 19:52:26   GLENN
  24.  * Minor edit to file header
  25.  * 
  26.  *    Rev 1.0   07 Jun 1991 23:39:50   GLENN
  27.  * Initial revision.
  28.  *
  29.  */
  30.  
  31.  
  32.  
  33. /*  $DOC$
  34.  *  $FUNCNAME$
  35.  *     FT_MIN2DHM()
  36.  *  $CATEGORY$
  37.  *     Date/Time
  38.  *  $ONELINER$
  39.  *     Convert numeric minutes to days, hours and minutes.
  40.  *  $SYNTAX$
  41.  *     FT_MIN2DHM( <nMinutes> ) -> aDHM_
  42.  *  $ARGUMENTS$
  43.  *     <nMinutes>  the number of minutes.
  44.  *  $RETURNS$
  45.  *     <aDHM_>
  46.  *        where: 
  47.  *           aDHM_[1] = cDAYS, aDHM_[2] = cHours, aDHM_[3] = cMinutes
  48.  *  $DESCRIPTION$
  49.  *     Converts numeric minutes into a character array containing
  50.  *     days, hours & minutes.
  51.  *  $EXAMPLES$
  52.  *     aDHM_ = MIN2DHM(16789) -> aDHM_[1] = 11, aDHM_[2] = 15, aDHM_[3] = 49
  53.  *  $END$
  54.  */
  55.  
  56. function FT_MIN2DHM(nMINS)
  57.   local aDHM_[3]
  58.  
  59.   aDHM_[1] = ltrim((str(int(nMINS/1440))))
  60.   aDHM_[2] = ltrim(str(int((nMINS%1440)/60)))
  61.   aDHM_[3] = ltrim(str(int((nMINS%1440)%60)))
  62.  
  63.   return aDHM_
  64.