Главная страница
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.032 c
14-1083747350
Maxim Vetera
2004-05-05 12:55
2004.05.23
Google нас обманывает?


11-1069253620
Alexander Kolesnikov
2003-11-19 17:53
2004.05.23
oracle


4-1081527497
raul
2004-04-09 20:18
2004.05.23
Пуск -> Найти, интерестное окошко получается ( там где "Результ


1-1083595237
DRUID
2004-05-03 18:40
2004.05.23
Передвижение формы


1-1083922607
BFG9k
2004-05-07 13:36
2004.05.23
TPageProducer