1 %RegisteredObject 1 Getal:%Float %Float 1 Getal:%Float,VeelvoudVan:%Integer=1 %Integer 1 Getal:%Float,CijfersNaKomma:%Integer=0 %Float 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 } } } 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) } } 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