RES: [delphi-br] Arredondar

2010-07-14 Por tôpico Desenvolvimento 
Declare Math no Uses

Var NovoSalario,AntigoSalario,Aumento:Double;

Begin

AntigoSalario:= 1333;

Aumento:= 8;

NovoSalario:= Roundto(AntigoSalario + (AntigoSalario * (Aumento / 100)), 0);

 

William C. Brazilino



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Arredondar

2010-07-13 Por tôpico Filippe Maymone 
Cara .. 

 

Eu precisei fazer isto aqui e olhando o help do delphi consegui da seguinte
forma

Utilizei a função RondTo

Porem antes de utilizar eu mudei seu tipo

SetRoundMode(rmTruncate);

Desta forma a função RoundTo começa a ser do tipo Truncate e trucar os seus
valores.

 

 

Abraços,

 

 

 http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda.
Filippe Maymone
fili...@gecon.inf.br

fone: 11-22423065 / 11-41192856

Cel: 11-81663158

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de joao_jma
Enviada em: terça-feira, 13 de julho de 2010 09:40
Para: Undisclosed-Recipient:;
Assunto: [delphi-br] Arredondar

 

  

Preciso atualizar o salário na base de dados de funcionários, aumentando em
8%

Preciso arredondar os valores sempre acima para não gravar centavos.

Alguma dica ???

Obrigado

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]