probleme de calcule modulo de trois variable
bonjour,
je veux calculer un mot de passe de trois champs:
j'utilisé le code suivant
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Dim rib1, rib2, rib3, rib4, v4 As Variant
rib1 = CDec(v1)
rest = rest + (rib1 - Int(rib1 / 97) * 97)
rib2 = CDec(v2)
rest = rest + (100 * (rib2 - Int(rib2 / 97) * 97))'sur 16 position il prend que la partie entière
v4 = Format(Date, "YYYYMMDD") 'date système
v3 = Format(v3, "DDMMYYYY")
rib3 = v3 + v4
rest = rest + (10000 * (rib3 - Int(rib3 / 97) * 97)) 'modulo de la date |
merci de m'aider