cAN005 ;VAN DATUM TOT DATUM ;%AN005 ; [ 01/04/01  8:09 AM ]
 ;
T0 ;Van datum tot datum ;
T1 ;Van datum\"dd.mm.jj[] = bepaalde datum";
T2 ;Tot datum\"dd.mm.jj[] = bepaalde datum";
T3 ; kleiner dan ; groter dan ;
 ;
T0F ;Depuis date jusque date ;
T1F ;Date intiale\"jj.mm.aa[] = date spécifique";
T2F ;Date finale\"jj.mm.aa[] = date spécifique";
T3F ; plus petite que ; plus grande que ;
 ;
T0E ;From date until date ;
T1E ;From date \"dd.mm.yy[] = specific date";
T2E ;Until date\"dd.mm.yy[] = specific date";
T3E ; smaller then ; larger then ;
 ;
 ; x=default   ln=lijn   ko=kolom   min=minimum   max=maximum
 ;
VAN(X,LN,KO,MIN,MAX)         ; van datum
1 S R="X\22\3\"_$P($T(@("T1"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)\\\\\1" D R0
10 I LN,KO W /CUP(LN,KO),/SGR(4),$P($P($T(@("T1"_QT)),U,2),D),/SGR(0)," : ",X,/EL
11 I K'="-",K'=",",$G(MIN),$$DC^cAFA1(K)<$$DC^cAFA1(MIN) D ER^cAN000(X_$P($T(@("T3"_QT)),U,2)_MIN) G 1
13 I K'="-",K'=",",$G(MAX),$$DC^cAFA1(K)>$$DC^cAFA1(MAX) D ER^cAN000(X_$P($T(@("T3"_QT)),U,3)_MAX) G 1
19 G YZ
 ;
TOT(X,LN,KO,MIN,MAX)         ; tot datum
2 S R="X\22\3\"_$P($T(@("T2"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)\\\\\1" D R0
20 I LN,KO W /CUP(LN,KO),/SGR(4),$P($P($T(@("T2"_QT)),U,2),D),/SGR(0)," : ",X,/EL
21 I K'="-",K'=",",$G(MIN),$$DC^cAFA1(K)<$$DC^cAFA1(MIN) D ER^cAN000(X_$P($T(@("T3"_QT)),U,2)_MIN) G 2
23 I K'="-",K'=",",$G(MAX),$$DC^cAFA1(K)>$$DC^cAFA1(MAX) D ER^cAN000(X_$P($T(@("T3"_QT)),U,3)_MAX) G 2
29 G YZ
 ;
YZ Q X
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84