VB: Betrag in Worten

[EHEMALIGER_IB]

Hi, wie kann ich eine Zahl in String umwandlen und "Stück für Stück" auseinandernehmen:

Ich habe:

DIM Zahl AS LONG

Zahl=234.54

Ich will:

DIM Text AS String

String "Zwei - Drei - Vier - Punkt - Fünf - Vier"

Also mit Sicherheit ne schleife oder sowas, aber ich kriegs net hin

[tauron]

jup das geht mit einer Schleife, die Zahl muss nur mit Format in einen String umgewandelt werden, sonst gibts ne Fehlermeldung.. dann liest Du sie einfach der Reihe nach aus und bastelst den String zusammen..

Beispiel:

    For a = 1 To Len(Format(Zahl))

        Select Case Mid(Format(Zahl), a, 1)

            Case Is = 1

                Text = Text & "Eins "

            Case Is = 2

                Text = Text & "Zwei "

            Case Is = 3

                Text = Text & "Drei "

            Case Is = 4

                Text = Text & "Vier "

            Case Is = 5

                Text = Text & "Fünf "

            ...usw...

        End Select

    Next

gruß

Christiang

[Reinhold]

Originally posted by Ischte

Hi, wie kann ich eine Zahl in String umwandlen

Siehe FAQ 2.11