Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1074 -r1106
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1074)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1106)
@@ -29,6 +29,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DateToTimestamp">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Date:%Date</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit $zd(Date,3)_" 00:00:00"
+]]></Implementation>
+</Method>
+
 <Method name="HorologIsGroterDan">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog1:%String,Horolog2:%String</FormalSpec>
@@ -66,6 +74,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TimeStampBereken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp,Verschil:%Integer,DatePart:TECH.enu.DatePart</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit $SYSTEM.SQL.DATEADD(DatePart,Verschil,TimeStamp)
+]]></Implementation>
+</Method>
+
 <Method name="DagNaam">
 <Description>
 Werkt ook met timestamp</Description>