Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r3659 -r3826
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 3659)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 3826)
@@ -439,6 +439,22 @@
 <Implementation><![CDATA[	quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"DD.MM.JJJJ")
 ]]></Implementation>
 </Method>
+
+<Method name="SecondsToHorolog">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Seconds:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	#dim Dagen As %String
+	#dim Seconden As %String
+	
+	Set Dagen = ##class(TECH.Math).Floor(Seconds/60/60/24, 0)
+	Set Seconden = (Seconds - (+Dagen *24*60*60))
+	
+	Quit Dagen _ "," _ Seconden
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/DateTime/impl/DateTimeAPI.cls.xml
===================================================================
diff -u -r3659 -r3826
--- TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3659)
+++ TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3826)
@@ -348,6 +348,13 @@
 <Implementation><![CDATA[	quit ##class(TECH.DateTime).GeefDatumInPuntNotatieLang(Datum)
 ]]></Implementation>
 </Method>
+
+<Method name="SecondsToHorolog">
+<FormalSpec>Seconds:TECH.Integer</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).SecondsToHorolog(Seconds)
+]]></Implementation>
+</Method>
 </Class>