FAQ
Comment trouver...
Cette fonction doit être utilisée pour comparer la clé SIREN calculée par rapport à la clé SIREN saisie, afin de se prémunir contre les erreurs de frappe.
Function Cle_Siren(Siren_sur_huit As String) As Byte
Dim Tampon_Siren As String
Dim Position As Byte
Dim Cumul_Siren As Integer
Tampon_Siren = ""
For Position = 1 To 8
Tampon_Siren = Tampon_Siren + CStr(Val(Mid(Siren_sur_huit, Position, 1)) * IIf((Position Mod 2) = 0, 2, 1))
Next Position
Cumul_Siren = 0
For Position = 1 To Len(Tampon_Siren)
Cumul_Siren = Cumul_Siren + Val(Mid(Tampon_Siren, Position, 1))
Next Position
Cle_Siren = Right(10 - Val(Right(Cumul_Siren, 1)), 1)
End Function