DAGDAT ;DAGNUMMER UIT DATUM OF OMGEKEERD ;DAGDAT; [ 05/07/99  8:29 AM ]
 G YZ
 ;
 ;Dagnummer uit datum
 ;Input : R = Datum
 ;Output: R = dagnummer
DN S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
 ;Datum uit dagnummer
 ;Input : R = dagnummer
 ;Output: R = datum
ND S R=$$EXTDATE^vhLib.DataTypes(R,"DKP")
 Q
 ;
YZ Q
 ;