Index: TECH/DateTime/DateTimeAPI.cls.xml
===================================================================
diff -u -r1739 -r3103
--- TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 1739)
+++ TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3103)
@@ -24,6 +24,7 @@
 
 <Method name="CurrentHorolog">
 <Abstract>1</Abstract>
+<FormalSpec>Precisie:%Integer</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 </Method>
 
Index: vhTest/Mock/TECH/DateTime/DateTimeAPI.cls.xml
===================================================================
diff -u -r2401 -r3103
--- vhTest/Mock/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 2401)
+++ vhTest/Mock/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3103)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.TECH.DateTime.DateTimeAPI">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.DateTime.DateTimeAPI,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -38,8 +37,9 @@
 </Method>
 
 <Method name="CurrentHorolog">
+<FormalSpec>Precisie:%Integer</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("CurrentHorolog")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("CurrentHorolog",Precisie)
 ]]></Implementation>
 </Method>
 
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>
 
Index: vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml
===================================================================
diff -u -r2401 -r3103
--- vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 2401)
+++ vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3103)
@@ -7,7 +7,7 @@
 <Description>
 30/06/2011 09:15:00</Description>
 <Type>TECH.Horolog</Type>
-<InitialExpression>"62272,33300"</InitialExpression>
+<InitialExpression>"62272,33300.123456"</InitialExpression>
 <Private>1</Private>
 </Property>
 
@@ -34,8 +34,14 @@
 </Method>
 
 <Method name="CurrentHorolog">
+<FormalSpec>Precisie:%Integer=0</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit ..Horolog
+<Implementation><![CDATA[
+	If (Precisie = 0){
+		quit $Piece(..Horolog,".",1)
+	} Else {
+		quit $Piece(..Horolog,".",1)_"."_$Extract($Piece(..Horolog,".",2),1,Precisie)
+	}
 ]]></Implementation>
 </Method>