cA326 ;VERSCHIL TUSSEN 2 DATA ;%A326 ; [ 01/09/01  5:49 PM ]
 ;
T0 ;Verschil tussen 2 data ;
 ;
T0F ;Difference entre 2 data ;
 ;
T0E ;Difference between 2 dates ;
 ;
 ; input  : R = grootste datum \ kleinste datum
 ; output : R = aantal dagen verschil
 ;
 N R1
 S R1=$$DH^cAFD1($P(R,D))-$$DH^cAFD1($P(R,D,2))
 S R=R1
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84