def SommeChiffres(nbre):     somme=0     while nbre!=0:         somme=somme+(nbre%10)         nbre=nbre/10     return somme

sum([int(i) for i in str(nbre)])

' 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

resultat compris entre 0 et 9
-/+ integer 

int intsum(int num)
{
    int n = 0, i = abs(num);
 
    while (i) { n += i%10; i /= 10; }
 
    return ( (n >= 10) ? intsum(n) : n);
}

function SumOfDigits(Number: Int64): Integer;
var Tmp: Extended;
begin
  Number := Abs(Number);
  Result := 0;
  while Number <> 0 do
  begin
    Tmp := Number / 10;
    Inc(Result, Round(Frac(Tmp) * 10));
    Number := Trunc(Tmp);
  end;
end;

function SelfSum(const V : int64) : integer; overload;
var N : int64;
begin
  N := abs(V);
  result := 0;
  while N > 0 do
  begin
    result := result + (N mod 10);
    N := N div 10;
  end;
end;

function SelfSum(const V : extended) : integer; overload;
var S : string;
    L,N : integer;
const
  CTN : array['0'..'9'] of byte = (0,1,2,3,4,5,6,7,8,9);
begin
  S      := FloatToStrF(V,ffFixed,20,22);
  result := 0;
  N      := 1;
  L      := Length(S);
  while N <= L do
  begin
    if S[N] in ['0'..'9'] then
    begin
      result := result + CTN[ S[N] ];
    end;
    N := N+1;
  end;
end;

(* Fonction récursive terminale. Exemple d'utilisation : sum 12345 = 15 *)
let sum n =
    let rec loop total = function
        | 0 -> total
        | n -> loop (total + n mod 10) (n / 10)
    in loop 0 n

var iNombre:Number = 0;
var iSomme:Number = 0;
function fSommeDesNombre (iNombre)
{
	if (iNombre > 0)
	{
		while (int (iNombre) > 0)
		{
			iSomme += Math.floor (iNombre) % 10;
			iNombre /= 10;
		}
	}
	else
	{
		while (int (iNombre) < 0)
		{
			iSomme += Math.ceil (iNombre) % 10;
			iNombre /= 10;
		}
	}
	return iSomme;
}

<?php
$a=10455;
$s=0;
while ($a!=0){
   $s+=$a%10;
   $a=intval($a/10);
}
print $s;
?>

$a=10455;
$s=0;
while ($a!=0){
   $s+=$a%10;
   $a=int($a/10);
}
print $s;

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 

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