Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r630 -r663
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 630)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 663)
@@ -147,6 +147,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CurrentDateVoorQueries">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Select($System.SQL.GetSelectMode()=1:$ZDate($H,3),1:$P($H,1))
+]]></Implementation>
+</Method>
+
 <Method name="MaxDate">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Date</ReturnType>