Somme des chiffres d'un nombre
Contenu du snippet
Option Explicit
Private Sub Form_Load()
MsgBox SommeChiffre(1234)
MsgBox SommeChiffre("1234")
MsgBox SommeChiffre("12test34")
End Sub
' 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 String
Dim i As Integer
N = nombre
'On place une gestion d'erreur si caractere
On Error Resume Next
For i = 1 To Len(N)
SommeChiffre = SommeChiffre + CInt(Mid(N, i, 1))
Next
On Error GoTo 0
End Function
Compatibilité : VB6, VBA
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.