| ( |
|
|
|||
| returns default round mode for values | |||
global
function val RoundVAL(val v,LongInt roundto,Integer typ)
begin
val res;
LongInt lroundto;
roundmode rnddef;
lroundto = roundto;
rnddef = DefaultValRoundoff;
if (lroundto<0) then begin lroundto = rnddef.decimals; end;
switch (typ) begin
otherwise
res = Round(v,SetRoundModeD(lroundto));
end;
RoundVAL = res;
return;
end;
 |
|
| Related topics: | |