Somme des chiffres d'un nombre
Contenu du snippet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show (SommeChiffre(1234))
MessageBox.Show (SommeChiffre("1234"))
MessageBox.Show (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(ByVal nombre As Object) As Long
Dim Result As Long
Dim tmp As Long
'On place une gestion d'erreur si caractere
Try
Dim N As String = nombre.ToString
For i As Integer = 0 To N.Length - 1
If Long.TryParse(N.Substring(i, 1), tmp) Then
Result += tmp
End If
Next
Catch ex As Exception
Result = -1
End Try
Return Result
End Function
Compatibilité : VB 2005
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.