Pegar Somente Números Int e casas Decimais separado tem como

Delphi

14/08/2003

Galera é o seguinte estou com um problema com calculos .
tenho que pegar um certo valor e dividir ele em casas decimais e numeros inteiros ex:

vamus supor que no edits esteja o valor 200,10

eu queria fazer isso

Interiro:=200;
CDecimais:=10;

Isso resolveria meu problema com uns calculos que estou desenvolvendo
se alguém poder me ajudar agradeço muito ..
falow obrigado


C-t

C-t

Curtidas 0

Respostas

Vmotta

Vmotta

14/08/2003

var
inteiro, decimais: integer;
begin
edit1.text := 200,10 ;
Inteiro := Trunc(strtoFloat(edit1.text));
Decimais:= (strtoFloat(edit1.text) - Interiro) * 100;
end;

T+


GOSTEI 0
Abueno_silva

Abueno_silva

14/08/2003

Oi,
Não sei se é a melhor maneira, mas na pressa, funciona:

var
valor : double;
inteiro, decimal : integer;
valor_st : string;
begin
valor := 2000.10;
inteiro := trunc(valor);
valor_st := floattostrf(valor,ffNumber,10,2);
decimal := strtoint(copy(valor_st,pos(´,´,valor_st)+ 1,2));
end;

Espero ter sido útil.
[]´s


GOSTEI 0
Afarias

Afarias

14/08/2003

var
N: Extended; // ou Float, etc...
I, D: Extended;
begin

N := 1234.567

I := Int(N); { I = 1234.0 }
D := Frac(N); { D = 0.567 }

end;


T+


GOSTEI 0
C-t

C-t

14/08/2003

OBRIGADO A TODOS VOU FAZER TODOS OS EXEMPLOS MUITO OBRIGADO PELA ATENCAO A TODOS


GOSTEI 0
POSTAR