Index: TECH/DateUtils.cls.xml
===================================================================
diff -u -r1934 -r2366
--- TECH/DateUtils.cls.xml	(.../DateUtils.cls.xml)	(revision 1934)
+++ TECH/DateUtils.cls.xml	(.../DateUtils.cls.xml)	(revision 2366)
@@ -10,6 +10,14 @@
 <Implementation><![CDATA[	quit (Date'<Start)&&(Date'>End)
 ]]></Implementation>
 </Method>
+
+<Method name="DayNumber">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Date:%Date</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit (($zdate(Date,10) + 6) # 7)+1
+]]></Implementation>
+</Method>
 </Class>