Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

Как получить в 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;

---

← →
Anatoly Podgoretsky ©   (2004-05-09 11:36) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c