Recherche
Recherche
Les mémos
Je débute...
Visites

 999662 visiteurs

 1 visiteur en ligne

FAQ
Déplier Fermer  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


Dernière modification :02/02/2007 : 07:10 Hyperlien