Index: TECH/DateTime/impl/DateTimeAPI.cls.xml
===================================================================
diff -u -r3312 -r3454
--- TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3312)
+++ TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3454)
@@ -182,14 +182,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDagNummerInWeek">
+<Description>
+Geeft DagNummer terug : 1=maandag, ... , 7=zondag 
+Input parameter Datum in $H-formaat 
+is analoog aan $$EXTDATE^vhLib.DataTypes(Datum,"DWN") </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DagNummerInWeek As %Integer = $ZDate(Datum,10)
+	Quit $$$If(DagNummerInWeek = 0, 7, DagNummerInWeek)
+]]></Implementation>
+</Method>
+
 <Method name="DagNaam">
+<Description>
+Input parameter Dag in $H-formaat </Description>
 <FormalSpec>Dag:%Date</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.DateTime).DagNaam(Dag)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDagInWeek">
+<Description>
+Input parameter Dag is nummer van de dag : 1-7 
+waarbij 1=maandag, ... , 7=zondag </Description>
 <FormalSpec>Dag:TECH.Integer</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.DateTime).GeefDagInWeek(Dag)