Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonsoir,
Arnaud (Anor) avait créé une fonction à cet effet, juste pour vérification. Sous réserve de ne pas me tromper, il s'agit de celle-là:
Function fCalculCleRIB(RIB As String) As Integer Dim Position As Integer Dim strDigit As String Dim NumericRIB As String
For Position = 1 To Len(RIB) strDigit = UCase(Mid(RIB, Position, 1)) If IsNumeric(strDigit) Then NumericRIB = NumericRIB & strDigit Else Select Case Asc(strDigit)
Case Is < 65 NumericRIB = NumericRIB Case 65 To 73 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 16) Case 74 To 82 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 25) Case 83 To 90 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 33) Case Is > 90 NumericRIB = NumericRIB End Select End If Next Position If Len(NumericRIB) = 21 Then fCalculCleRIB = 97 * (Int((CDec(NumericRIB) * 100) / 97) + 1) _ - (CDec(NumericRIB) * 100) End If
End Function
Bonjour,
j'aurais besoin de valider un rib saisie en recalculant la clé.
Quelqu'un a t'il le code ?
Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Arnaud (Anor) avait créé une fonction à cet effet, juste pour
vérification. Sous réserve de ne pas me tromper, il s'agit de celle-là:
Function fCalculCleRIB(RIB As String) As Integer
Dim Position As Integer
Dim strDigit As String
Dim NumericRIB As String
For Position = 1 To Len(RIB)
strDigit = UCase(Mid(RIB, Position, 1))
If IsNumeric(strDigit) Then
NumericRIB = NumericRIB & strDigit
Else
Select Case Asc(strDigit)
Case Is < 65
NumericRIB = NumericRIB
Case 65 To 73
NumericRIB = NumericRIB & Chr(Asc(strDigit) - 16)
Case 74 To 82
NumericRIB = NumericRIB & Chr(Asc(strDigit) - 25)
Case 83 To 90
NumericRIB = NumericRIB & Chr(Asc(strDigit) - 33)
Case Is > 90
NumericRIB = NumericRIB
End Select
End If
Next Position
If Len(NumericRIB) = 21 Then
fCalculCleRIB = 97 * (Int((CDec(NumericRIB) * 100) / 97) + 1) _
- (CDec(NumericRIB) * 100)
End If
End Function
Bonjour,
j'aurais besoin de valider un rib saisie en recalculant la clé.
Quelqu'un a t'il le code ?
Merci d'avance.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Arnaud (Anor) avait créé une fonction à cet effet, juste pour vérification. Sous réserve de ne pas me tromper, il s'agit de celle-là:
Function fCalculCleRIB(RIB As String) As Integer Dim Position As Integer Dim strDigit As String Dim NumericRIB As String
For Position = 1 To Len(RIB) strDigit = UCase(Mid(RIB, Position, 1)) If IsNumeric(strDigit) Then NumericRIB = NumericRIB & strDigit Else Select Case Asc(strDigit)
Case Is < 65 NumericRIB = NumericRIB Case 65 To 73 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 16) Case 74 To 82 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 25) Case 83 To 90 NumericRIB = NumericRIB & Chr(Asc(strDigit) - 33) Case Is > 90 NumericRIB = NumericRIB End Select End If Next Position If Len(NumericRIB) = 21 Then fCalculCleRIB = 97 * (Int((CDec(NumericRIB) * 100) / 97) + 1) _ - (CDec(NumericRIB) * 100) End If
End Function
Bonjour,
j'aurais besoin de valider un rib saisie en recalculant la clé.
Quelqu'un a t'il le code ?
Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Julian Alvarez
Merci beaucoup Eric pour cette réponse. Je viens de tester la fonction qui marche parfaitement.
A +
Bonjour,
j'aurais besoin de valider un rib saisie en recalculant la clé.
Quelqu'un a t'il le code ?
Merci d'avance.
Merci beaucoup Eric pour cette réponse.
Je viens de tester la fonction qui marche parfaitement.
A +
Bonjour,
j'aurais besoin de valider un rib saisie en recalculant la clé.
