RES: [delphi-br] Arredondar

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

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,