Home The Company Publications Products Links Tips Jobs

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


Back to NATURAL Tips, Tricks, Techniques -- Overview