How to Compute Date Variables
Last 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)
 Top Page
|
NATURAL Tips, Tricks, Techniques -- Overview