cAFD1 ;Datumfuncties ;%AFD1 ; [ 01/03/01  5:04 PM ]
 ;
T0 ;Datumfuncties ;
 ;
T0F ;Fonctions avec dates ;
 ;
T0E ;Date functions ;
 ;
DC(R) ; datum conversie
 I R?2N1"."2N1"."2N S R=$E(R,7,8)<50+19_$E(R,7,8)_$E(R,4,5)_$E(R,1,2)
 Q R
 ;
DCO(R) ; datum conversie omgekeerd (jj)jjmmdd -> dd.mm.jj
 S R=$E(R,$L(R)-1,$L(R))_"."_$E(R,$L(R)-3,$L(R)-2)_"."_$E(R,$L(R)-5,$L(R)-4)
 Q R
 ;
DH(R) ;bepaalde datum omvormen tot $H-VORM
 N R0,R1,R2,R3,X
 S R0=$P(R,".",2),R1=$P(R,".",3),R1=R1<50+19_R1-1841,R2=R1\4*1461,R3=R1#4*365,R=R2+R3+$P(R,".",1)+(R3>730&(R0>2))-1
 F X=1:1:R0-1 S R=R+$P("31\28\31\30\31\30\31\31\30\31\30",D,X)
 Q R
 ;
HD(K) ; $H naar DD.MM.JJ
 N R
 I $ZV["MSM" S R=$TR($ZD(+K,3),"/",".")
 I $ZV'["MSM" S R=$TR($ZD(+K,4),"/",".")                                
 I $L(R)=10 S R=$E(R,1,6)_$E(R,9,10)
 Q R
 ;
HT(K,S) ; $H naar UU:MM
 N R,RU,RM,RS
 S R=$P(K,",",2),RU=R\3600,RM=R-(RU*3600)\60,RS=R-(RU*3600)-(RM*60)
 S R=$J(RU,2)_":"_$E(100+RM,2,3)
 I $G(S) S R=R_":"_$E(100+RS,2,3)
 Q R
 ;
TH(K) ; UU:MM:SS naar $H
 Q $P(K,":")*60+$P(K,":",2)*60+$P(K,":",3)
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84