* -----------------------------------------------------------------------------
*   Program Name ............:  DateChan
*   Written By ..............:  Mark Mainwaring
*   Copyright Owned By ......:  Rocky Mountain Software Inc.
*   Location ................:  Vancouver  BC  CANADA
*   Telephone ...............:  (604) 736-1731
*   Fax Number ..............:  (604) 736-0404
*   CompuServe ID ...........:  71321,2043
*   Date of Creation ........:  August 10, 1990
* -----------------------------------------------------------------------------


PROCEDURE DateChange

     PRIVATE C_field, U_contents, D_newdate, N_number

     C_field = READVAR()
     U_contents = &C_field

     IF TYPE( C_field ) = "D"
          D_newdate   = IF( EMPTY( U_contents ), DATE(), U_contents )
          N_number = IF( EMPTY( U_contents ), 0, 1 )
          IF TYPE( "M->" + C_field ) = "U"
               REPLACE &C_field. WITH IF( LASTKEY() = 43, ;
               D_newdate + N_number, D_newdate - N_number )
          ELSE
               &C_field. = IF( LASTKEY() = 43, ;
               D_newdate + N_number, D_newdate - N_number )
          ENDIF
     ENDIF

* -----------------------------------------------------------------------------
* End of File.