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

 1223811 visiteurs

 4 visiteurs en ligne

Nous contacter

Contact

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 

Vous êtes ici :   Accueil » FAQ