Somme des chiffres d'un nombre
Contenu du snippet
' marche avec tout type de numérique: ' Byte, Integer, Long, Double, Décimal, (chaîne mais avec restriction) Private Function SommeChiffre(nombre As Variant) As Long Dim n As Variant, t As Variant, s As Long n = Int(nombre) While n > 0 t = n n = Int(t / 10) s = s + t - n * 10 Wend SommeChiffre = s End Function
Compatibilité : VB6
Disponible dans d'autres langages :
A voir également
- Somme des chiffres d'un nombre
- Rib maroc 24 chiffres - Forum Visual Basic 6
- Somme sql ✓ - Forum SQL
- Générateur de nombre ✓ - Forum PHP
- Le maximum ou le minimum d'une somme SUM() - Forum SQL
- Sql somme cumulée ✓ - Forum SQL
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.