freddy1787
Messages postés60Date d'inscriptionmardi 24 juin 2003StatutMembreDernière intervention19 avril 2009
-
13 mars 2006 à 22:18
freddy1787
Messages postés60Date d'inscriptionmardi 24 juin 2003StatutMembreDernière intervention19 avril 2009
-
14 mars 2006 à 21:26
Bonjour,
J'ai deja fait un post a ce sujet (categorie maths) mais comme je pensais avoir résolue le problème j'ai dis que c'était bon alors qu'en fait c'est à ce jeter par la fenetre!!
freddy1787
Messages postés60Date d'inscriptionmardi 24 juin 2003StatutMembreDernière intervention19 avril 2009 14 mars 2006 à 21:26
Salut,
Bon en fouillant un peu dans le forum(je n'avais pas vu les autres pages lol) j'ai trouvé !!
Function id_msn(ByVal adresse As String) As Double
Dim i As Integer
id_msn = 0
adresse = LCase(adresse)
For i = 1 To Len(adresse)
id_msn = id_msn * 101# + Asc(Mid$(adresse, i, 1))
id_msn = id_msn - Fix(id_msn / 4294967296#) * 4294967296#
Next i