KDUJWD G 1 ;DATUM UIT WEEKNUMMER EN DAGNUMMER ;KDUJWD; [ 05/26/99  4:46 PM ]
 ;Input : R="JJ/WW\DD"
 ;
1 S:'$P(R,"\",2) $P(R,"\",2)=3
 S R=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(R,"\"),"DW")+$P(R,"\",2)-3,"DK"),"-",".")
 ;
YZ Q
 ;