Index: TECH/Percentage.cls.xml
===================================================================
diff -u -r429 -r434
--- TECH/Percentage.cls.xml	(.../Percentage.cls.xml)	(revision 429)
+++ TECH/Percentage.cls.xml	(.../Percentage.cls.xml)	(revision 434)
@@ -17,15 +17,15 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[    quit (Waarde*100)/(100+Percentage)
+<Implementation><![CDATA[    quit (Waarde*100)/(100+(Percentage*100))
 ]]></Implementation>
 </Method>
 
 <Method name="WaardeVanExclusief">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[    quit Waarde*(Percentage/100)
+<Implementation><![CDATA[    quit Waarde*(Percentage)
 ]]></Implementation>
 </Method>
 
@@ -43,7 +43,7 @@
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
    #dim result As %Decimal = 0
-   if +WaardeExclusief '= 0 set result = (WaardeInclusief-WaardeExclusief)/(WaardeExclusief/100)
+   if +WaardeExclusief '= 0 set result = (WaardeInclusief-WaardeExclusief)/(WaardeExclusief)
    quit result
 ]]></Implementation>
 </Method>
@@ -54,7 +54,7 @@
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
     #dim result As %Decimal = 0
-    if +WaardeExclusief '= 0 set result = (WaardeExclusief-WaardeInclusief)/(WaardeExclusief/100)*-1
+    if +WaardeExclusief '= 0 set result = (WaardeExclusief-WaardeInclusief)/(WaardeExclusief)*-1
     quit result
 ]]></Implementation>
 </Method>