home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / TSTOH.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-22  |  888 b   |  38 lines
  1. /*********
  2. *  TSTOH
  3. *  by Tom Rettig
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. *  Syntax: TSTOH( <expC> )
  7. *  Return: Numeric hours from <expC> time string.
  8. *          Zero if invalid time string format.
  9. *********/
  10.  
  11. #include "trlib.h"
  12.  
  13. TRTYPE tstoh()
  14. {
  15.    char *instr;
  16.    double ret;
  17.    if ( PCOUNT == 1 && ISCHAR(1) )
  18.    {
  19.       instr = _parc(1);
  20.       if ( VALIDTIME(instr) )
  21.       {
  22.          ret = (double)
  23.                ( (ADTOL(instr[HOURS])*36000) +
  24.                  (ADTOL(instr[HOUR ])* 3600) +
  25.                  (ADTOL(instr[MINS ])*  600) +
  26.                  (ADTOL(instr[MIN  ])*   60) +
  27.                  (ADTOL(instr[SECS ])*   10) +
  28.                   ADTOL(instr[SEC  ])        ) / 3600;
  29.          _retnd( ret );
  30.       }
  31.       else
  32.          _retnd( (double)ERROR );
  33.    }
  34.    else
  35.       _retnd( (double)ERROR );
  36. }
  37.  
  38.