Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1695 -r1727
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1695)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1727)
@@ -156,10 +156,17 @@
 
 <Method name="CurrentDateVoorQueries">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Select($System.SQL.GetSelectMode()=1:$ZDate($H,3),1:$P($H,",",1))
+<Implementation><![CDATA[	Quit ..DateVoorQueries(..CurrentDate())
 ]]></Implementation>
 </Method>
 
+<Method name="DateVoorQueries">
+<FormalSpec>Date:%Date</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Select($System.SQL.GetSelectMode()=1:$ZDate(Date,3),1:$P(Date,",",1))
+]]></Implementation>
+</Method>
+
 <Method name="MaxDate">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Date</ReturnType>