Sv: date difference

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

Hi

Theese routines in combination will do it. They are proven 
to work from 1900.01.01 to 2099.12.31.

They are a part of a full-function utility that even can calculate in pure
math the easter days and days related to this.


IYYMD        DS                              8       
I                                        1   40YYMDYY
I                                        1   80YYMDNU
I                                        5   60YYMDM 
I                                        7   80YYMDD 
I                                        5   80YYMDMD
I*                                                   

C******************************************************
C* DATONR - CALCULATES DATE SEQ # FROM A DATE            
C*          INPUT - YYMD (DS: YYMDYY+YYMDM+YYMDD)      
C*          OUTPUT- DNR (00NNNNN)                      
C******************************************************
C*                                                     
C           DATONR    BEGSR                            
C*                                                     
C                     SUB  1900      YYMDYY            
C           YYMDM     MULT 30.57     DNR     90        
C                     ADD  YYMDD     DNR               
C           YYMDYY    MULT 365.25    WRK082  82        
C           YYMDM     IFLE 2                           
C                     ADD  1.8       WRK082            
C                     ENDIF                            
C                     ADD  WRK082    DNR               
C                     SUB  32        DNR               
C                     ADD  1900      YYMDYY            
C*                                                     
C                     ENDSR                           DATONR

C******************************************************
C* NRDATO - CALCYLATES YYMD FROM DAY SEQ #
C*          INPUT   DNR                                
C*          OUTPUT  YYMD  (DS:YYMDYY+YYMDM+YYMDD)      
C******************************************************
C*                                                     
C           NRDATO    BEGSR                            
C*                                                     
C           DNR       MULT 100       WRK080  80        
C           WRK080    DIV  36525     YYMDYY            
C                     MVR            WRK050            
C                     ADD  3290      WRK050            
C           WRK050    IFLT 9200                        
C                     SUB  180       WRK050            
C                     ENDIF                            
C                     MOVE 00        WRK050            
C           WRK050    DIV  3056      YYMDM             
C                     MVR            WRK040  40        
C           WRK040    DIV  100       YYMDD             
C                     ADD  1         YYMDD             
C                     ADD  1900      YYMDYY            
C*                                                     
C                     ENDSR                           NRDATO

Regards

Henrik Krebs

------------------------------------------------------------
Henrik Krebs
IT Consultant (IBM AS/400)
Phone +45 55 44 26 50
Mobile +45 40 88 83 23
Email: hkrebs@hkrebs.dk
Web: http://www.hkrebs.dk/
Snailmail: Kokhaven 8, DK-4736  Karrebaeksminde
------------------------------------------------------------

----------
> Fra: Glenn-Cons.T.Geathers@am.pnu.com
> Til: MIDRANGE-L@midrange.com
> Emne: date difference
> Dato: 17. februar 1999 17:40
> 
> Does anyone have a routine for dates that will give the difference
between 
> two dates. The one we have with the robot product isn't working & we need

> the routine yesterday. Private replies would be appreciated. Regards, 
> Glenn.
> z9gtgeat@am.pnu.com




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---