home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_datep.ch < prev    next >
Text File  |  1993-07-01  |  1KB  |  59 lines
  1. /*
  2.  * File......: GT_Datep.ch
  3.  * Author....: Niall Scott
  4.  * BBS.......: The Dark Knight Returns
  5.  * Net/Node..: 050/069
  6.  * User Name.: Niall Scott
  7.  * Date......: 29/6/93
  8.  * Revision..: 1.0
  9.  * Log file..: $Logfile$
  10.  *
  11.  * This is an original work by Niall R Scott and is placed in the
  12.  * public domain.
  13.  *
  14.  * Modification history:
  15.  * ---------------------
  16.  *
  17.  * Rev 1.0  29/6/93
  18.  * Initial Revision
  19.  */
  20.  
  21.  
  22. /*  $DOC$
  23.  *  $FUNCNAME$
  24.  *
  25.  *  $CATEGORY$
  26.  *     GET System
  27.  *  $ONELINER$
  28.  *     Header File for DATEPLUS
  29.  *  $SYNTAX$
  30.  *     
  31.  *  $ARGUMENTS$
  32.  *
  33.  *  $RETURNS$
  34.  *
  35.  *  $DESCRIPTION$
  36.  *
  37.  *  $EXAMPLES$
  38.  *
  39.  *  $SEEALSO$
  40.  *
  41.  *  $INCLUDE$
  42.  *
  43.  *  $END$
  44.  */
  45.  
  46.  
  47.  
  48. #command @ <row>, <col> GET <var>                              ;
  49.             [<clauses,...>]                                ;
  50.         DATEPLUS [<ad: ADDDATE>] [KEY <key>]                    ;
  51.         [<moreClauses,...>]                             ;
  52.                                     ;
  53.         => @ <row>, <col> GET <var>                     ;
  54.         [<clauses>]                                     ;
  55.         SEND  reader := {|x| DateRead(x, IF( <.ad.>, .T., .F.), ;
  56.                     IF( <key> != NIL, <key>, 999) }    ;
  57.         [<moreClauses>]
  58.  
  59.