Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

FabianoBSB

[Resolvido] Calculo de IR

Recommended Posts

Boa Tarde pessoal!!

Alguem ai por acaso tem algum script para calculo de Imposto de Renda em ASP. (Eu tenho em excel)Mas os valores de dedução e aliquotas teriam que esta em um banco de dados. Se alguem tiver eu agradeço

Ex Excel:

=SE(F2<='Tab IR'!$A$7;F2*0;SE(F2<'Tab IR'!$C$8;F2*'Tab IR'!$D$8-'Tab IR'!$E$8;SE(F2<'Tab IR'!$C$9;F2*'Tab IR'!$D$9-'Tab IR'!$E$9;SE(F2<'Tab IR'!$C$10;F2*'Tab IR'!$D$10-'Tab IR'!$E$10;SE(F2>'Tab IR'!$C$11:C15;F2*'Tab IR'!$D$11-'Tab IR'!$E$11)))))

 

Tab IR

Base de Cálculo Mensal Alíquota Parcela a deduzir

1.499,15 Isento

1.499,16 até 2.246,75 7,5% R$ 112,43

2.246,76 até 2.995,70 15% R$ 280,94

2.995,71 até 3.743,19 22,5% R$ 505,62

Acima de 3.743,19 27,5% R$ 692,78

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa Tarde pessoal!!

Alguem ai por acaso tem algum script para calculo de Imposto de Renda em ASP. (Eu tenho em excel)Mas os valores de dedução e aliquotas teriam que esta em um banco de dados. Se alguem tiver eu agradeço

Ex Excel:

=SE(F2<='Tab IR'!$A$7;F2*0;SE(F2<'Tab IR'!$C$8;F2*'Tab IR'!$D$8-'Tab IR'!$E$8;SE(F2<'Tab IR'!$C$9;F2*'Tab IR'!$D$9-'Tab IR'!$E$9;SE(F2<'Tab IR'!$C$10;F2*'Tab IR'!$D$10-'Tab IR'!$E$10;SE(F2>'Tab IR'!$C$11:C15;F2*'Tab IR'!$D$11-'Tab IR'!$E$11)))))

 

Tab IR

Base de Cálculo Mensal Alíquota Parcela a deduzir

1.499,15 Isento

1.499,16 até 2.246,75 7,5% R$ 112,43

2.246,76 até 2.995,70 15% R$ 280,94

2.995,71 até 3.743,19 22,5% R$ 505,62

Acima de 3.743,19 27,5% R$ 692,78

 

Consegui resolver ai vai o codigo pra quem quiser usar

 

<%
Valor = Rs("Salario")
iF valor <= 1499.15 then
ir =  "0"
Response.write formatNumber(ir )
else
iF valor < 2246.75 then
ir = valor / 100 * 7.5 - 112.43
Response.write formatNumber(ir )
Else
If Valor < 2995.70 then
ir = valor / 100 * 15 - 280.94
Response.write formatNumber(ir )

Else
If Valor < 3743.19 then
ir = valor / 100 * 22.5 - 505.62
Response.write formatNumber(ir )

Else
If Valor > 3743.19 then
ir = valor / 100 * 27.5 - 692.78
Response.write formatNumber(ir )

END IF
END IF
END IF
END IF
END IF

%>
Agora tenho que passar essas deduções para uma tabela, para os calculos serem processados a partir da base de dados. Para no futuro as deduções serem atualizadas via formulário e não via código.

Valew todos

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.