[Resolvido]Tabela do inss 2021

boa tarde, tenho essa tabela do inss 2021

Faixa Inicial    Faixa Final   Aliquota    
    0       ate   1.100,00       7,5%
1.100,01  ate 2.203,48       9%
2.203,49   ate  3.305,22     12%
3.305,23  ate   6.433,57     14%
6.433,58  ate  11.017,42    14,5%
11.017,43 ate  22.034,83    16,5%
22.034,84 ate 42.967,92   19%
A partir de 42.967,93     22%

preciso criar um codigo q faca isso aqui em baixo

Para você entender melhor como é esta contribuição vamos pensar num exemplo.

Milena trabalha como farmacêutica e começou a receber, em 2021, o valor de R$ 1.700,00.

Vou separar por pontos para você entender como funciona a contribuição da segurada.

Milena pagará:

7,5% de R$ 1.100,00 (por seu salário ter ultrapassado a primeira faixa), que corresponde a uma contribuição de R$ 82,50; mais
9% sobre R$ 600,00 (valor que sobrou do salário da segurada após passar a primeira faixa: R$ 1.700,00 – R$ 1.100,00), que corresponde a uma contribuição de R$ 54,00.
Totalizando, Milena, em 2021, contribuirá com R$ 82,50 + 54,00 = R$ 136,50 por mês.

Caro Amigo,

Criei a tbl_INSS do formato abaixo:

FInicial FFinal Deducao Aliquota
R$0,00 R$1.100,00 R$0,00 7,50%
R$1.100,00 R$2.203,48 R$1.100,00 9,00%
R$2.203,49 R$3.305,22 R$2.203,48 12,00%
R$3.305,23 R$6.433,57 R$3.305,22 14,00%

Esses são os intervalos da tabela do INSS que peguei na internet.

Criei um formulário com um campo (ValorSal) não acoplado onde informo o valor do salário para cálculo do INSS e um botão onde colei o código abaixo:

Private Sub Comando26_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Dim VlSal As Currency
VlSal = Me.ValorSal
Dim Sair As String
Dim AcumINSS As Currency
Dim XFInicial As Currency
Dim XFFinal As Currency
Dim XDeducao As Currency
Dim XAliquota As String

Set rs = db.OpenRecordset("SELECT * FROM [Tbl_INSS] order by FInicial")
rs.MoveFirst
AcumINSS = 0
'Sair = "N"
Do While Not rs.EOF
  XFInicial = rs![FInicial]
  XFFinal = rs![FFinal]
  XDeducao = rs![Deducao]
  XAliquota = rs![Aliquota]
 

  'If VlSal > XFFinal And Sair = "N" Then
  If VlSal > XFFinal Then

       AcumINSS = AcumINSS + (XFFinal - XDeducao) * XAliquota
   Else
       AcumINSS = AcumINSS + (VlSal - XDeducao) * XAliquota
       'Sair = "S"
       rs.MoveLast
       
   End If
 
  'MsgBox "FI: " & XFInicial & "  FF: " & XFFinal & "  Ded: " & XDeducao & "  AL: " & XAliquota & "  INSS: " & AcumINSS
 
 
   rs.MoveNext
Loop

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
   
MsgBox "Valor Final; " & AcumINSS


Fiz alguns testes e conferi com alguns cálculos da internet e bateram.
Acho que o caminho é por aí. Faça as devidas adaptações para os intervalos que vc informou. Acho que serve de ajuda.

Lembrando que tudo está totalmente aberto. Esta tabela devemos fazer um formulário para cadastramento com as devidas amarrações dos intervalos dos valores não ficarem uns dentro de outros, ou seja, a segunda faixa ser sempre maior que a primeira, a dedução ser sempre o valor final da anterior, etc.
Isso não foi testado o suficiente para dizer que está totalmente correto, mas acho que o caminho é esse.
Os seus intervalos não estão conforme as tabelas que vi na internet. Pode ser algum caso especial.

Boa sorte

Abraço

bom dia Finformática

consegui resolver

Muito abrigado pelo retorno.

Abraço

Podes disponibilizar o código como ficou para nossos estudos?

vc sabe me dizer como fica a tabela do imposto de renda sob folha de pagamento?

Caro amigo,

O cálculo para folha é exatamente como fiz acima. Por isso achei estranho a sua quantidade de intervalos.

Abraço

mas na folha de pagamento tambem tem a tabela do imposto de renda retido na fonte, to falando desta tabela e nao do inss

Na folha de pagamento o mais importante é obter qual valor vai ser a base para o imposto de renda. Não é só pegar o valor do salário e fazer o cálculo. Para se obter essa base temos que ver cada um dos lançamentos da folha quem incide e quem não incide para o imposto de renda. Aí tem que ver, por exemplo, gratificação, hora extra, insalubridade, periculosidade, participação nos lucros, etc. Aí tem que ver quem entra no cálculo da base para depois começar o verdadeiro cálculo do imposto retido na fonte (cálculo acima). Lembrando que nesse cálculo ainda entra o INSS e os dependentes para imposto de renda.

Abraços

sim eu sei trabalhei em contabilidade por 10 anos

Como ficou seu código depois de adaptado?

pra mim tabela de inss ficou igual esse q vc postou

so mudei a parte da tabela e adiçonei a parte de deducao nela que seria a faixa final de cada linha

Tabela do INSS?

https://i.servimg.com/u/f66/20/26/56/23/sem_tz11.png

veja minha tabela

Beleza. Que bom que deu tudo certo. Precisando, estando ao meu alcance, mande as ordens.

Caro amigo,

Preciso entender o que você deseja fazer. Está fazendo sistema de folha de pagamento? Você quer outro código? O código é para fazer o que? Detalhe, passo a passo do que fazer.

Abraços

Basicamente mesmo código do INSS.

Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Dim VlSalIRRF As Currency
VlSalIRRF = Me.ValorSalIRRF
Dim ValorIRRF As Currency
Dim FI As Currency
Dim FF As Currency
Dim XDeducao As Currency
Dim XAliquota As String

Set rs = db.OpenRecordset("SELECT * FROM [Tbl_IRRF] order by FInicial")

rs.MoveFirst

Do While Not rs.EOF
FI = rs![FInicial]
FF = rs![FFinal]
XDeducao = rs![Deducao]
XAliquota = rs![Aliquota]

' MsgBox VlSalIRRF & " " & FI & " " & FF

If VlSalIRRF > FI And VlSalIRRF < FF Then

ValorIRRF = VlSalIRRF * XAliquota - XDeducao
rs.MoveLast

End If

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

MsgBox "Valor Final IRRF: " & ValorIRRF


Abraços

Obrigado