home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST161.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  649 b   |  31 lines
  1. ********************
  2.  
  3. FUNCTION Inc_date
  4.  
  5.    PARAMETERS _incdate, _incrow, _inccol
  6.  
  7.    IF PCOUNT() = 1
  8.       _incrow = ROW()
  9.       _inccol = COL()
  10.    ENDIF
  11.  
  12.    PRIVATE _dummy
  13.  
  14.    SET CURSOR OFF
  15.    DO WHILE .T.
  16.       @ _incrow, _inccol GET _incdate
  17.       CLEAR GETS
  18.       _dummy = INKEY(0)
  19.       IF _dummy = 13 .OR. _dummy = 27 .OR. _dummy = 23 .OR. _dummy = 3
  20.          EXIT
  21.       ELSE
  22.          IF CHR(_dummy) $ "IiDd" .OR. _dummy = 5 .OR. _dummy = 24
  23.             _incdate = _incdate + IF((CHR(_dummy)$"Ii" .OR. _dummy = 5), 1, -1)
  24.          ENDIF
  25.       ENDIF
  26.    ENDDO
  27.    SET CURSOR ON
  28.    RETURN(_incdate)
  29.  
  30. * End of File
  31.