Como pego a parte inteira e a fracionada de um número

Delphi

02/04/2004

Bom dia,

Como pego a parte inteira e a fracionado de um número?

Por exemplo: tenho uma conta que é: 187,5 / 100 = 1,87

Preciso colocar em uma variável o número 1 e na outra o 87 sem arredondar nada.

Como faria isto?

Abraços,
Fernanda


Fernanda.sique

Fernanda.sique

Curtidas 0

Respostas

Paullus

Paullus

02/04/2004

...
var
  inteiro     : integer;
  fracionario : double;
begin
  inteiro     := Trunc(valor);
  fracionario := Frac(valor);
end;


Onde [b:503e5ff46f]valor[/b:503e5ff46f] é o valor que você quer separar.
:roll:


GOSTEI 0
Fernanda.sique

Fernanda.sique

02/04/2004

Muito obrigada,

Abraços, :P


GOSTEI 0
POSTAR