RES: [delphi-br] Arredondar

[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]