Zahl in Worten ausgeben

[blondervolker]

Einwandfrei.Dankeschööööön!!!

[blondervolker]

Geht es auch mit Nachkommastellen?

30 von Hundert? usw.

[Amateurprofi]

Ich habe mich gestern und heute auch mal mit dem Thema befasst.
Im Anhang eine .exe und die Unit, in der die Umwandlung stattfindet als.pas
Hoffentlich nicht so viel Bugs...

[Medium]

30 von Hundert? Was ist das für eine Angabe?

Egal: Du könntest für Nachkommastellen deinen Zahl-String einfach am Komma in zwei Teile splitten, den linken durch die hier erarbeitete Funktion jagen, und den rechten (Nachkommaanteil) ziffernweise in Zahlwörter umwandeln und einfach an den Ergebnisstring hinten dran pappen.

[blondervolker]

Hallo,
ich hatte mich verkehrt ausgedrückt mit 30 von hundert(Alzheimer).
Ich wollte nur mitteilen,wie man auch die Nachkommastellen als Text angezeigt bekommt.
Zum Beispiel 12,89 zwölfeuroneunundachtzig

und nicht eintausendzweihundertneunundachtzig.

[Jumpy]

Zitat von blondervolker:

Hallo,
Zum Beispiel 12,89 zwölfeuroneunundachtzig

Das ist aber eine ganz andere Anforderung nämlich: Euro-Beträge in Worten ausgeben oder so ähnlich.

In Mathesprech ist das aber zwölfkommaachtneun oder sowas wie Medium das meinte

[Ginko]

Die angefügte Unit mit dem Beispiel macht genau das:

Code:

12,89 -> zwölfeuroneunundachtzig

Dazu habe ich hier diese Funktion genommen http://www.delphi-fundgrube.de/faq13.htm, und eine kleine Änderung gemacht. Außerdem habe ich noch 2 Funktionen, um den String in Cent und Euro zu trennen und entsprechend auszugeben, geschrieben.

Ich habe mal alles Zusammen im Anhang in einer Unit. Sollte in Delphi Compilieren.

Die Dateien aus dem ursprünglichen Anhang sind dafür nicht nötig.

MfG

[Ginko]

@AmateurProfi, hattest du selbst eine Umwandlungsfunktion geschrieben ?
Weil in deinem Anhang konnte ich nur die Datei aus dem ursprünglichen Anhang von blondervolker finden ?

Ich habe die Funktionen von meinem letzen Beitrag mal zur besseren Übersicht in eine extra Unit gepackt.
Hier nochmal beides.

Unit1 ist ein Beispiel für den Aufruf.

Mfg