nur ziffern zusammenzählen

rest

HI Leute
ich möchte aus einer Zahl die Ziffern hervorheben und sie zusammenzählen aber nur die ziffern
könnt ihr mir pls helfen? Mauer

Mauer

Wolf

Du meinst die quersumme?

http://www.aboutvb.de/khw/artikel/khwquersumme.htm

rest

genau Quersummen =)
und für link dank ich dir Freude

Freude

mfg

daHooligan

zahl == float ??
wenn ja:
for i in 1..(string(zahl))'Length loop

if(string(zahl)(i) \= ".") then
quersumme := quersumme + zahl(i);
end if;

end loop;

also jedes zeichen durchzählen und wenn es kein komma ist draufaddieren

rest

jo ist auch eine guter Vorschlag =)

aber habs geschaft

ich muss nämlich UID prüfen und mitn link gings auch Freude

Freude

hier ich zeigs euch

code:

1:
2:
3:
4:
5:
6:
7:
8:

For Stelle = 1 To 8
        Summe = Val(Mid(UID, Stelle, 1)) * Val(Mid(KFR, Stelle, 1))
        Do While Summe <> 0
            Quersumme = Quersumme + (Summe Mod 10)
            Summe = Summe \ 10
        Loop
        Summe = Summe + Quersumme
Next Stelle

Forensoftware: Burning Board 2.3.1, entwickelt von WoltLab GmbH