FAQ

Cette fonction doit être utilisée pour comparer la clé SIRET calculée par rapport à la clé SIRET saisie, afin de se prémunir contre les erreurs de frappe.

Function Cle_Siret(Siret_sur_treize As String) As Byte

Dim Tampon_Siret As String
Dim Position As Byte
Dim Cumul_Siret As Integer
Tampon_Siret = ""

For Position = 1 To 13

Tampon_Siret = Tampon_Siret _
+ CStr(Val(Mid(Siret_sur_treize, Position, 1)) _
* IIf((Position Mod 2) = 0, 1, 2))

Next Position

Cumul_Siret = 0

For Position = 1 To Len(Tampon_Siret)

Cumul_Siret = Cumul_Siret + Val(Mid(Tampon_Siret, Position, 1))

Next Position

Cle_Siret = Right(10 - Val(Right(Cumul_Siret, 1)), 1)

End Function