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>