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

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

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)