Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r664 -r758
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 664)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 758)
@@ -49,6 +49,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CurrentHorolog">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[	Quit $H
+]]></Implementation>
+</Method>
+
 <Method name="HorologToDate">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog:%String</FormalSpec>
@@ -381,6 +389,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TimezoneDiff">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set TimeStampTime = $piece($piece($ztimestamp,",",2),".")
+	set HorologTime = $piece($horolog,",",2)
+	quit ##class(TECH.Math).Round(HorologTime-TimeStampTime,0)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDatumInPuntNotatieLang">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Datum:%Date</FormalSpec>