Index: TECH/Math.cls.xml =================================================================== diff -u -r3164 -r3166 --- TECH/Math.cls.xml (.../Math.cls.xml) (revision 3164) +++ TECH/Math.cls.xml (.../Math.cls.xml) (revision 3166) @@ -29,7 +29,7 @@ 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 + Quit:(Getal[".")&&($Length($Piece(+Getal,".",2))=CijfersNaKomma) +Getal ; Getal bevat evenveel cijfers na komma als opgegeven CijfersNaKomma #dim Floored As %Float #dim Factor As %Integer = 10**CijfersNaKomma