Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

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

Наверх




Память: 0.47 MB
Время: 0.039 c
3-1083020634
rosl
2004-04-27 03:03
2004.05.23
запрос SQL


14-1083567626
Белый волк
2004-05-03 11:00
2004.05.23
Правильное отображение кирилицы в консольном приложении Delphi


1-1084109382
Jiurasdfgfr
2004-05-09 17:29
2004.05.23
Как в MDI приложении поместить Child окно на передний план?


1-1083736941
Dogless
2004-05-05 10:02
2004.05.23
Передача TNotifyEvent в качестве константы


1-1084353607
andrey__
2004-05-12 13:20
2004.05.23
TServiceApplication - как завершить приложение