Porcentagem...

Delphi

26/09/2003

Preciso fazer este cauculo:
  DmBaseDados.CDSOrdServVALOR_ORCA.AsInteger := DmBaseDados.CDSOrdServVALOR_PECA.AsInteger + DmBasedados.CDSOrdServMAO_OBRA.AsInteger * (1-DmBasedados.CDSOrdServDESCONTO.AsInteger/100);
   

Só que estqa me retornando esta mensagem:
[Error] U_Ordem_Servico.pas(120): Incompatible types: ´Integer´ and ´Extended´
OQUE PODE SER ISTO?
Erivan Marinho.


Peninha

Peninha

Curtidas 0

Respostas

Rodrigo_rcp

Rodrigo_rcp

26/09/2003

Não tenho certeza mas acho que você deve trocar o ´/´ por [b:0c156f0e15]div[/b:0c156f0e15]


GOSTEI 0
Peninha

Peninha

26/09/2003

Não, amigo não funcionou, sera que alguém tem outra sugestão?


GOSTEI 0
Nigro

Nigro

26/09/2003

como é possível que o resultado de uma divisão, não dê um número inteiro, troque isso: DmBaseDados.CDSOrdServVALOR_ORCA.AsInteger por isso: DmBaseDados.CDSOrdServVALOR_ORCA.AsFloat, não esqueça de mudar também no banco de dados


GOSTEI 0
POSTAR