Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r286 -r448
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 286)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 448)
@@ -118,6 +118,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DateTimeToTimeStamp">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Date:%Date,Time:%Time</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	#dim TimeStamp As %TimeStamp = ""
+	If (Date '= "") && (Time '= ""){
+		Set TimeStamp = $zdate(Date,3)_" "_$ztime(Time,1)
+	}
+	Quit TimeStamp
+]]></Implementation>
+</Method>
+
 <Method name="HorologIsGroterDan">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog1:%String,Horolog2:%String</FormalSpec>