如何取两日期相差多少小时

H*****************************************************************      
H* calculate hours different two date format.                           
H*****************************************************************      
HDATFMT(*ISO)                                                           
H*****************************************************************      
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
d DCC1            S               Z                                     
d DCC2            S               Z                                     
D                 DS                                                    
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
DY6                       1      6S 0                                   
Dhh                       1      2S 0                                   
Dmm                       3      4S 0                                   
Dss                       5      6S 0                                   
C*****************************************************************      
C* Main Line Routine                                                    
C*****************************************************************      
C*                                                                      
C     *ENTRY        PLIST                                               
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq.
C                   PARM                    d1                8 0       
C                   PARM                    t1                6 0       
C                   PARM                    d2                8 0       
C                   PARM                    t2                6 0      
C                   PARM                    hourx             7 0      
c*                                                                     
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
C                   MOVEL     D1            DC1               8        
C                   MOVEL     T1            TC1               6        
C*                                                                     
C                   MOVEL     D2            DC2               8        
C                   MOVEL     T2            TC2               6        
C*                                                                     
c                   movel     *blanks       DAT1             26        
c                   eval      DAT1= %subst(dC1:1:4) + '-'  +           
C                                   %subst(dC1:5:2) + '-'  +           
C                                   %subst(dC1:7:2) + '-'  +           
C                                   %subst(TC1:1:2) + '.'  +           
C                                   %subst(TC1:3:2) + '.'  +           
C                                   %subst(TC1:5:2) +  '.000000'       
C                   movel     dat1          dclearcase/" target="_blank" >cc1                       
C*                                                                     
c                   movel     *blanks       DAT2             26        
c                   eval      DAT2= %subst(dC2:1:4) + '-'  +           
C                                   %subst(dC2:5:2) + '-'  +           
C                                   %subst(dC2:7:2) + '-'  +           
C                                   %subst(TC2:1:2) + '.'  +           
C                                   %subst(TC2:3:2) + '.'  +            
C                                   %subst(TC2:5:2) +  '.000000'        
C                   movel     dat2          dcc2                        
C*                                                                      
C                   z-add     0000          HOURS             9 0       
C                   z-add     0000          HOURx             7 0       
C     DCC1          SUBDUR    DCC2          HOURS:*mn                   
c* calculate the minutes.                                               
c                   eval(h)   hourx = hours/60                          
C*                                                                      
C*                                                                      
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq.
C                   SETON                                        LR     
C                   RETURN                                              
****************** End of data *****************************************

foreverjj 回复于：2003-11-04 16:29:17

看不明白，能否解释一下？

原文转自：http://www.ltesting.net