home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / QUARTER.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-22  |  692 b   |  40 lines
  1. /*********
  2. *  QUARTER.C
  3. *
  4. *  by Tom Rettig
  5. *
  6. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  7. *
  8. *  Syntax: QUARTER( <expD> )
  9. *  Return: <expN> = quarter in which <expD> falls
  10. *          0 if invalid parameter
  11. *********/
  12.  
  13. #include "trlib.h"
  14.  
  15. TRTYPE quarter()
  16. {
  17.    char *ds;
  18.    int quarter;
  19.    
  20.    if (PCOUNT == 1 && ISDATE(1) )
  21.    {
  22.       ds = _pards(1);
  23.  
  24.       if (!ISDS(ds))            /* not a date string */
  25.       {
  26.          _retni(ERROR);
  27.          return;
  28.       }
  29.  
  30.       /* Equation is:  quarter = ((month - 1) / 3) + 1 */
  31.       quarter = ((DSMONTH(ds) - 1) / 3) + 1;
  32.  
  33.       _retni(quarter);
  34.    }
  35.    else
  36.       _retni(ERROR);
  37. }
  38.  
  39.  
  40.