Arrendodar e converter pra inteiro

Delphi

05/02/2007

Amigos tenho um cadastro de produtos onde tem uns fracionados

Ex: Farinha, arroz....

Que tem entradas de 1000, 500... g

porem quero fazer uma rotina para saber quanto falta para inteiro.

Tenho os campos Conversao = Valor inteiro
Tenho os campos quantidade = Quantidade a ser baixada

se for apenas um inteiro eu consigo fazer = (Conversao - quantidade), porem quando fica mais de um, tipo 1,5 ae não consigo saber quanto falta para ficar inteiro = 2.

help...


Sremulador

Sremulador

Curtidas 0

Respostas

Massuda

Massuda

05/02/2007

Não sei se entendi seu problema, mas você pode usar a função Ceil da unit Math para arredondar um valor ´para mais´. Por exemplo...
var
  N: Integer;
...
  N := Ceil(2.5);  // N = 3
  N := Ceil(1.8);  // N = 2
  N := Ceil(0.1);  // N = 1
  N := Ceil(-0.5); // N = 0



GOSTEI 0
Sremulador

Sremulador

05/02/2007

Valeu Massuda

o que acontece e o seguinte

Tenh o a quantidade 1530 que equivale a uma parde de um inteiro que contém 1000, e para eu ter dois inteiros falta 470 então o que quero saber e quanto falta para atingir um inteiro de determindado item.


GOSTEI 0
Massuda

Massuda

05/02/2007

Usando seus números como exemplo...

Falta = Ceil(1530 / 1000) * 1000 - 1530


GOSTEI 0
Sremulador

Sremulador

05/02/2007

Amigo, funcionou valeu...


GOSTEI 0
POSTAR