Home | The Company | Publications | Products | Links | Tips | Jobs |
---|
How to Compute Date VariablesLast update: 2 June 2005 Problem:Subtract 7 days from 2 June 2005 and receive 26 May 2005.20050602 - 7 = 20050526 Solution:0010 DEFINE DATA LOCAL 0020 1 #DATE-A8 (A8) 0030 1 #DATE-N8 (N8) 0040 1 #DATE-D (D) 0050 END-DEFINE 0060 * 0070 #DATE-N8 := *DATN -7 <<=== *DATN doesn't work 0080 #DATE-A8 := *DATX -7 0090 WRITE '=' *DATN / '=' *DATX / '=' #DATE-N8 / '=' #DATE-A8 0100 * 0110 #DATE-D := *DATX -7 0120 MOVE EDITED #DATE-D (EM=YYYYMMDD) TO #DATE-A8 0130 WRITE '=' #DATE-A8 0140 * 0150 END Result: DATN: 20050602 DATX: 05-06-02 #DATE-N8: 20050595 <<=== *DATN -7 #DATE-A8: 05-05-26 #DATE-A8: 20050526 Why *DATN doesn't work*DATN = Current date in format YYYYMMDD (N8)*DATX = Current date in internal date format (D)
Back to NATURAL Tips, Tricks, Techniques -- Overview |