pegar somente valores depois da virgula

Delphi

13/05/2008

Galera é o seguinte estou precisando de pegar um valor ou uma string depois da virgula exemplo

100,23 => gostaria de pegar somente o 23

1,25 => somente o 25

0,03 = somente o 3

tem alguma rotina ou função pronto no delphi 7 pra isso?


Guigosnet

Guigosnet

Curtidas 0

Respostas

Marco Salles

Marco Salles

13/05/2008

var
 v,r:Extended;
 s:string;
begin
 v:=100.23;
 // pegar um valor
 r:=v - trunc(v);
 //para pegar uma String
 s:=floattostr(r);
 showmessage(s);


Note v,r [b:19c5e63ec0]Extended [/b:19c5e63ec0]..... pois tem uma ´representação´ mais precisa
em relação a outros tipos Nativos do Delphi..


GOSTEI 0
Guigosnet

Guigosnet

13/05/2008

ok deu certo


GOSTEI 0
Joaoshi

Joaoshi

13/05/2008

Colegas, com um esforço menor poderiamos utilizar a funcao [b:e1bd4342cb]FRAC[/b:e1bd4342cb]


GOSTEI 0
POSTAR