En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224342 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Comment trouver...

Cette fonction, qui supporte les numéros de comptes alphanumériques, doit être utilisée pour comparer la clé RIB calculée par rapport à la clé RIB saisie, afin de se prémunir contre les erreurs de frappe.

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

Dernière modification :11/04/2007 : 13:01 Hyperlien 

Vous êtes ici :   Accueil » FAQ