cQDATIM	;Wijzigen Datum en Tijd ;cQDATIM;
	G 1
	;
date	;date
	N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
	F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
	S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
datez	Q
time	;time
	N %J,%R S QT=$G(QT),%R=$P($H,",",2)\60,%J=%R\60
	S TD=$J(%J,2)_$P(" u ; h ; h ",";",$S(QT="F":2,QT="E":3,1:1))_(%R#60\10)_(%R#10)
timez	Q
doubleq(X)	;Double quotes in string
	N Y S Y=0 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
doubleqz	K Y Q X
	;
T0	;Wijzigen datum en tijd ;
T1	;Datum en tijd kunnen niet gewijzigd worden;
T2	;Huidig Nieuw;
T3	;Datum\"dd.mm.jjjj[] = datum   [] = huidige datum   -[] = einde programma";
T4	;Tijd \"hh:mm:ss[] = tijd   [] = huidige tijd";
T5	;Wijziging doorvoeren\".[] = ja   -[] = nee";
	;
T0F	;Modifier la date et l'heure ;
T1F	;La date et l'heure ne peuvent pas etre modifiés;
T2F	;Actuelle Nouvelle;
T3F	;Date   \"jj.mm.aaaa[] = la date   [] = la date actuelle   -[] = fin du programme";
T4F	;L'heure\"hh:mm:ss[] = l'heure   [] = l'heure actuelle";
T5F	;Appliquer les modifications\".[] = oui   -[] = non";
	;
T0E	;Change date and time ;
T1E	;Date and time cannot be changed;
T2E	;Current New;
T3E	;Date\"dd.mm.yyyy[] = date   [] = current date   -[] = end program";
T4E	;Time\"hh:mm:ss[] = time   [] = current time";
T5E	;Continue with changes\".[] = yes   -[] = no";
	;
T0D	;Change date and time ;
T1D	;Date and time cannot be changed;
T2D	;Current New;
T3D	;Date\"dd.mm.yyyy[] = date   [] = current date   -[] = end program";
T4D	;Time\"hh:mm:ss[] = time   [] = current time";
T5D	;Continue with changes\".[] = yes  -[] = no";
	;
1	D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	D S1 S FP=413 W @F,$P($T(@("T2"_QT)),U,2),!!?2,$P($P($T(@("T3"_QT)),U,2),D)," : ",DT,!!?2,$P($P($T(@("T4"_QT)),U,2),D)," : ",TI
12	S INT=0
	;
2	S R="DAT\22\3\"_$P($T(@("T3"_QT)),U,2)_"\10\XCTR\" D R0 G YZ:K="-"
21	D S1 I DAT="" S %DN=$H D 100^%DO S DAT=$P(DT,".",1,2)_"."_$P(%DS," ",3)
	S FP=627 W @F,DAT
22	S R="TIM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\8\TCTR\" D R0 G 2:K="-"
23	D S1 S:TIM="" TIM=TI S FP=827 W @F,TIM
24	S R="OK\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\"".-""[K&$L(K)\" D R0 G 22:K="-"
	;
SET	S R=$$REGION
	I R="dd-mm-yy" S DAT=$TR("12.34.5678","12.34.5678",DAT)
	I R="dd-yy-mm" S DAT=$TR("12.5678.34","12.34.5678",DAT)
	I R="mm-dd-yy" S DAT=$TR("34.12.5678","12.34.5678",DAT)
	I R="mm-yy-dd" S DAT=$TR("34.5678.12","12.34.5678",DAT)
	I R="yy-dd-mm" S DAT=$TR("5678.12.34","12.34.5678",DAT)
	I R="yy-mm-dd" S DAT=$TR("5678.34.12","12.34.5678",DAT)
	S X=$$JW^cQFILE("date "_DAT)
	S X=$$JW^cQFILE("time "_TIM)
	Q
	;
YZ	Q
	;
S1	D time S K=$P($H,",",2),TH=K\3600,K=K-(TH*3600),TM=K\60,TS=K-(TM*60)
S1A	S TI=$E(0_TH,$L(TH),3)_":"_$E(0_TM,$L(TM),3)_":"_$E(0_TS,$L(TS),3)
S1Z	Q
	;
REGION()	; get region
	S INFO=$$INFO^cQ14 N ER,K
	S K=$$JW^cQFILE("echo | date > "_INFO),K="dd-mm-yy",ER=$$OR^cQFILE(INFO)
	I 'ER F  Q:$$RF^cQFILE(INFO,.A)  I $G(A)["(" S K=$P($P($G(A),"(",2),")") Q
	S K=$TR($ZCONVERT(K,"L"),"j","y")
	S ER=$$CF^cQFILE(INFO)
REGIONZ	Q K
	;
INT(DAT,TIM)	S INT=1 D SET Q
	;
INFO()	Q $$INFO^cQ14
	;
MS	S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R K
MSZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
XCTR	;K?2N1"."2N1"."4N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-,"[K)
	;
TCTR	;K?2N1":"2N1":"2N&($E(K,1,2)<24)&($E(K,4,5)<60)&($E(K,7,8)<60)!("-"[K)
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9