Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r2374 -r2563
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2374)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2563)
@@ -271,6 +271,7 @@
 TimeStamp naar DD/MM uu:mm</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set TimeStampString = $zdt($ZDATETIMEH(TimeStamp,7),4)
 	Set Deel1 = $Piece(TimeStampString,"/",1,2)
@@ -280,5 +281,13 @@
 	Quit Deel1_" "_Deel2
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDatumInPuntNotatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$EXTDATE^vhDTyp(Datum,"DKP")
+]]></Implementation>
+</Method>
 </Class>
 </Export>