Eu pedi em outro fórum para modificar um código VBA, um cara chamado « Harun24hr » me ajudou com um código (muito obrigado a ele), mas não consegui fazer com o segundo.
O código calcula a chave de um número de conta bancária, mas quero modificá-lo para que o código pegue 10 números da direita para calcular a chave correspondente.
Por exemplo, se o número for: 6465981, o código levará tudo em consideração, pois tem 7 números. Se o número for 007999990006465981, será necessário 0006465981 para calcular a chave.
O código é:
Public Function RIP(Cle_RIP As String) As String
If Cle_RIP = "" Then
Cle_RIP = 0
End If
RIP = Cle_RIP * 100
RIP = RIP - 97 * Int(RIP / 97)
RIP = RIP + 85
If RIP < 97 Then
RIP = RIP + 97
Else
RIP = RIP
End If
RIP = RIP - 97
RIP = 97 - RIP
If RIP < 10 Then
RIP = "0" & RIP
Else
RIP = RIP
End If
End Function