Calculer la clé sécu. social....

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 310 fois - Téléchargée 58 fois

Commenter

Contenu du snippet

Dans ce projet seul les chiffres doivent être pris en compte alors je vous conseil d'utilisé le composant maskedit de VB comme zone de text, si joint une capture d'écran de l'interface graphique "toute simple".

Le calcul est simple du moment que la sécu transmet la formule, bonne programmation...

Source / Exemple : 


Private Sub Calcul_Click()
'calcul de la clé insée

a1:     Dim X, Y, Z, W, v, U

    X = Number
    Y = X / 97
    Z = Int(Y)
    W = Z * 97
    v = X - W
    U = 97 - v
    Key.Text = U

End Sub

Private Sub Delete_Click()
' efface les donées
    Number.Text = ""
    Key.Text = ""
    Number.SetFocus
End Sub

Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Number_Change ' appel du sub number_change
End Sub

Private Sub Number_Change()
'Vérif si le text est présent dans le text.text sinon le bouton calcul devient inactif

    If Number.Text <> "" Then Calcul.Enabled = True Else Calcul.Enabled = False
    If Number.Text <> "" Then Delete.Enabled = True Else Delete.Enabled = False

End Sub

Conclusion :


idée -> Key.backcolor = rouge

présentation du calcul...

X = Number 'numéro sécu
Y = X / 97
Z = Int(Y) 'envoie un nombre entier sans ","
W = Z * 97
v = X - W
U = 97 - v
U = Clé
@+

A voir également

Ajouter un commentaire Commentaires
Alex001
16 août 2001 à 18:20
Exact, merci pour l'argumentation mais ceci est a titre éducatif et effectivement ce calcul ne fonctionne que pour les zones francaise de 1 à 95 hors RATP et SNCF DOM TOM et CORSE. Voilà @+
sinouhé
2 août 2001 à 16:50
bug ...
pour les gens nés en corse, il faut effectuer une correction du n° SS à 13 chiffres:
sur le dpt 2A mettre 19 et sur le dpt 2B mettre 18 (norme B2 avril 2000)...
BQ
30 juil. 2001 à 18:25
plus simplement
Clé = Clng(N°7chiffres) Mod 97
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Alex001)