1 TECH.RegisteredObject 1 Getal:%Float %Float 1 Getal:%Float,VeelvoudVan:%Integer=1 %Integer 1 Getal:%Float,CijfersNaKomma:%Integer=0 %Float 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 #dim Floored As %Float #dim Factor As %Integer = 10**CijfersNaKomma If (Getal >= 0) { Set Floored = ($piece(Getal*Factor,".")/Factor) } Else { Set Floored = ($piece(Getal*Factor-1,".")/Factor) } Quit +Floored ]]> 1 Getal1:%Float,Getal2:%Float %Float Getal2) Set Min = Getal2 Quit Min ]]> 1 Getal1:%Float,Getal2:%Float %Float 1 Getal:%Float,CijfersNaKomma:%Integer %Float 1 Getal:%Integer %Boolean 1 Getal:%Integer %Boolean Test dat Getal een veelvoud is van Deler Getal=20 en Deler=5 geeft True 1 Getal:%Integer,Deler:%Integer %Boolean 1 Getal:%Integer,Modulus:%Integer %Integer 1 Totaal:TECH.Decimal,Aantal:%Integer TECH.Decimal http://localhost:57772/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fzboolean 1 Bit1:TECH.Integer,Bit2:TECH.Integer %Boolean 1 Grondtal:%Double,Exponent:%Integer %Double 1 TotalLength:%Numeric,NumberOfSubdivisions:TECH.Integer,Length:%Numeric %Numeric 1 Grondtal:%Double %Double 1 Getal...:%Numeric %Numeric