Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder ein alternativer Browser verwenden.
Hallo,
Kann mir bitte Jemand einen (oder mehrere Links) mit deutschen Referenzen über String Funktionen geben?
Also alles, was man so braucht um mit Strings arbeiten zu können.
Danke,
kann mir bitte jemand ein Beispiel machen, wie ich eine 2- oder mehrstellige Zahl in die einzelnen Ziffern splitte und dann miteinander addiere? Und das solange, bis die zahl nur noch einstellig ist.
Bsp:
Zahl = 56
Dann addiert man die 5 + 6 = 11
dann addiert man 1 + 1 = 2
Ich hoffe, es ist klar, was ich brauche, denn ich selbst hab bis jetzt nur Endlosschleifen zu Stande gebracht
Hier mal ein Beispiel, in dem eine function einen Wert übergeben bekommt, die Quersumme berechnet und und diese als Integer zurückgibt.
Private Function quersumme(myZahl#) As Integer
Dim i%, a%
a = 0
For i = 1 To Len(CStr(myZahl)) - 1
a = a + Right(myZahl, 1)
myZahl = Left(myZahl, Len(CStr(myZahl)) - 1)
Next
a = a + myZahl
quersumme = a
End Function