Index: TECH/DateTime/impl/DateTimeAPI.cls.xml
===================================================================
diff -u -r1739 -r3103
--- TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 1739)
+++ TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3103)
@@ -25,8 +25,14 @@
 </Method>
 
 <Method name="CurrentHorolog">
+<FormalSpec>Precisie:%Integer=0</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.DateTime).CurrentHorolog()
+<Implementation><![CDATA[
+	If (Precisie = 0){
+		quit ##class(TECH.DateTime).CurrentHorolog()
+	} Else {
+		quit $Piece($ZU(188),".",1)_"."_$Extract($Piece($ZU(188),".",2),1,Precisie)
+	}
 ]]></Implementation>
 </Method>