Calculos ?

Delphi

04/09/2003

Olá Pessoal, belezinha ?

tenho um probleminha para resolver alguém aí pode me dar uma ajudinha ?

tenho as seguintes variavei:

Valor_Total: Currency;
Valor_LImite: Currency;
Num_Cheques: Integer;

Valor_Total := 6.500,00
Valor_Limite := 4.800,00

Num_Cheques :=
Valor_Total / Valor_Limite;

no meu sistema tenho um valor limite máximo para emissao de cheques,
com o exemplo acima me retorna uma dizima, como faço para retornar um valor interiro, tipo a Variavel Num_Cheques tem que ser igual a 2

pois o primeiro cheque é igual a 4.800,00 mais me resta 1.700,00 que é um outro cheque que vou emitir.

Alguém pode me ajudar nessa ?

Obrigada !

Renata Coimbra


Renata Coimbra

Renata Coimbra

Curtidas 0

Respostas

Maxwell_monteiro

Maxwell_monteiro

04/09/2003

Tente usar a função Trunc() ela trunca um número!

Trunc(2.2222) = 2


GOSTEI 0
Bacalhau

Bacalhau

04/09/2003

Acho que há aí um erro quando defines Num_Cheques: Integer e depois utilizas o operador ´/´. O melhor é definir uma variavel temp : real, seguida de:

Valor_Total := 6.500,00
Valor_Limite := 4.800,00

Temp := Valor_Total / Valor_Limite;
Num_Cheques := Trunc(temp) + 1;

O ´+ 1´ é para as virgulas. No teu exemplo a divisão dá 1 ´virgula qualquer coisa´. Logo precisas de 2 cheques. O ´+ 1´ é para o ´qualquer coisa´ :lol:


GOSTEI 0
POSTAR