Index: TECH/Math.cls.xml
===================================================================
diff -u -r3163 -r3164
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3163)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3164)
@@ -3,7 +3,7 @@
 <Class name="TECH.Math">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Abs">
 <ClassMethod>1</ClassMethod>
@@ -26,28 +26,17 @@
 <FormalSpec>Getal:%Float,CijfersNaKomma:%Integer=0</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	#dim Floored As %Float
+	Quit:$$$Not(Getal?0.1"-".N0.1".".N) "" ; geen geldig getal -> om backwards compatible te blijven ; zou eigenlijk moeten 0 zijn
+	Quit:Getal="." ""					   ; uitzondering om backwards compatible te blijven ; zou eigenlijk moeten 0 zijn
+	Quit:$$$Not(Getal[".") +Getal		   ; indien niet decimaal
+	Quit:(Getal[".")&&($Length($Piece(Getal,".",2))=CijfersNaKomma) +Getal ; Getal bevat evenveel cijfers na komma als opgegeven CijfersNaKomma
 	
-	If (Getal < 0) {
-		If (CijfersNaKomma > 0) {
-			Set Floored = $Extract(Getal,1,$Find(Getal,".")-1 + CijfersNaKomma) - (1 / 10**CijfersNaKomma)
-		} Else {
-			If (##class(TECH.StringUtils).Contains(Getal,".")) {
-				Set Floored = $Extract(Getal,1,$Find(Getal,".")-2) -1
-			} Else {
-				Set Floored = Getal
-			}
-		}
+	#dim Floored As %Float
+	#dim Factor As %Integer = 10**CijfersNaKomma
+	If (Getal >= 0) {
+		Set Floored = ($piece(Getal*Factor,".")/Factor)
 	} Else {
-		If (CijfersNaKomma > 0) {
-			If (##class(TECH.StringUtils).Contains(Getal,".")) {
-				Set Floored = $Extract(Getal,1,$Find(Getal,".")-1 + CijfersNaKomma)
-			} Else {
-				Set Floored = Getal
-			}
-		} Else {
-			Set Floored = $Extract(Getal,1,$Find(Getal,".")-2)	
-		}
+		Set Floored = ($piece(Getal*Factor-1,".")/Factor)
 	}
 	
 	Quit +Floored