Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r448 -r472
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 448)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 472)
@@ -182,6 +182,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TimeVerschil">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DatePart:TECH.enu.DatePart,Time1:%Time,Time2:%Time</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Horolog1 As %String = +$h_","_Time1
+	#dim Horolog2 As %String = +$h_","_Time2
+	Quit $SYSTEM.SQL.DATEDIFF(DatePart,Horolog1,Horolog2)
+]]></Implementation>
+</Method>
+
 <Method name="TimeStampVerschil">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DatePart:TECH.enu.DatePart,Timestamp1:%TimeStamp,Timestamp2:%TimeStamp</FormalSpec>