Как получить в Currency то что находится до запятой и после?

← →
RiKo (2004-05-09 02:43) [0]

subj

← →
RiKo (2004-05-09 02:55) [1]

Уже нашел, не совсем то что искал, но мне подходит

Модуль для записи числа словами
ByWords

← →
Mim1 © (2004-05-09 03:43) [2]

Trunc, Frac

← →
TUser © (2004-05-09 05:57) [3]

Переделай под свои нужды
procedure MyVal(Value:string; var V:integer; var Code:integer); var i:integer; f:boolean; begin i:=1; f:=true; while f and (i<=length(Value)) do if Value[i]="0" then inc (i) else f:=false; if f then begin Code:=0; V:=0; end else val(copy(Value,i,length(Value)-i+1),V,Code); end; function GetDouble(Value:string; var Code:integer):double; var i,j,k,c:integer; begin Code:=0; k:=pos(".",Value); if k=0 then Val(Value,result,Code) else begin if posex(".",Value,k+1)<>0 then raise EWrongRule.Create("Wrong double value: """+Value+""""); MyVal(copy(Value,1,k-1),i,c); if c<>0 then raise EWrongRule.Create("Wrong double value: """+Value+""""); Val(copy(Value,k+1,length(Value)-k),j,c); if c<>0 then raise EWrongRule.Create("Wrong double value: """+Value+""""); c:=length(Value); k:=c-k; if j = 0 then result:=i else result:=i+j/power(10,k); end; end;

Currency 64-bit scaled integer c 4 знаками после запятой

Как получить в Currency то что находится до запятой и после? Найти похожие ветки