MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tabela do inss 2021

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 30/3/2021, 17:51

    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.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 31/3/2021, 03:35

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 15:27

    bom dia Finformática

    consegui resolver
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 15:47

    Muito abrigado pelo retorno.

    Abraço

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


    Última edição por Finformática em 4/4/2021, 16:03, editado 1 vez(es)
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 15:51

    vc sabe me dizer como fica a tabela do imposto de renda sob folha de pagamento?
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 16:05

    Caro amigo,

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

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 16:08

    mas na folha de pagamento tambem tem a tabela do imposto de renda retido na fonte, to falando desta tabela e nao do inss
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 16:19

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 16:24

    sim eu sei trabalhei em contabilidade por 10 anos
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 16:32

    Como ficou seu código depois de adaptado?
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 16:38

    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
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 17:26

    Tabela do INSS?
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 4/4/2021, 17:47

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

    veja minha tabela
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 4/4/2021, 18:23

    Beleza. Que bom que deu tudo certo. Precisando, estando ao meu alcance, mande as ordens.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 5/4/2021, 16:56

    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
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  Finformática 6/4/2021, 03:14

    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

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Tabela do inss 2021 Empty Re: [Resolvido]Tabela do inss 2021

    Mensagem  NADIRONUNES 6/4/2021, 09:46

    Obrigado

      Data/hora atual: 16/6/2021, 14:46