Fórum Funcao Calcula INSS #189182

:arrow: Tchê, não sei se os valores ainda estão atualizados. Parece meio tosco a function, mas funciona legal, pelo menos para os meus controles pessoais tem funcionado redondinho. 8)


Function CalcularINSS(Valor:Extended): String;
Var Perc, VlrReal: Extended;
begin
Perc:=0;
If ( Valor <= 468.47 ) Then
Perc:= 7.65;
If ( Valor >= 468.48 ) and ( Valor <= 600.00 ) Then
Perc:= 8.65;
If ( Valor >= 600.01 ) and ( Valor <= 780.78 ) Then
Perc:= 9;
If ( Valor >= 780.79 ) and ( Valor <= 1561.56 ) Then
Perc:= 11;
VlrReal:= (Valor * Perc)/100;
Result:= FloatToStr(Trunc(VlrReal * 100) / 100);
End;

Espero que sirva !!!! :!: :!: :!: