Zahlen in Worte

[Fuerchau]

Da man ja nicht immer alles neu programmieren muß hier mal eine Anfrage:

Hat jemand ein Programm/Routine mit der ich eine Zahl in ein Wort umsetzen kann ?

Also z.B.
1397 = Eintausenddreihundertsiebenundneunzig

Ich brauche dies für die französischen Zahlen !

[B.Hauser]

Hallo,

unter folgendem Link ist die Quelle für ein RPG-Service-Programm zu finden.
Zwar werden die Ziffern in englische Zahlen umgesetzt, müsste aber für Deutsch leicht umgesetzt werden können.

Convert Numbers to Words

Birgitta

[Fuerchau]

Entschuldige bitte, aber ich brauche dies für französisch !
Dies ist ungleich komplizierter, da die französischen Zahlen zusammengesetzt werden:

80 = vier mal zwanzig
90 = vier mal zwanzig und zehn
97 = vier mal zwanzig und zehn und sieben

usw. usw.


PS: Ja ok, jede Kombination einzeln aufführen, dann gehts.
Danke

[B.Hauser]

Hallo,

entschuldige, aber auch französiche Zahlen unterliegen ähnlichen Regeln wie deutsche oder englische.

In dem angegebenen Beispiel Programm sind die Zahlen 1-99 in einer Tabelle hinterlegt.

Also kann man doch statt ninety-nine ganz einfach quatre vingt dixneuf schreiben oder?
Kein Mensch rechnet französiche Zahlen!

Birgitta

[Fuerchau]

tja, ich muss eben Rechnungen in Tunesien drucken. Dort muss der Rechnungsendbetrag in französischen Worten ausgeschrieben werden. (Neben dem Problem, dass die Währung Dinar dort 3 Nachkommastellen hat).

Ich werde diese Routine, leicht geändert für spezielle Werte, verwenden.

Im deutschen gibts ja auch die Sonderregel:

1 = Eins
100 = Einhundert (also ohne "s")
1000 = Eintausend
1001 = Eintausendeins

Die Engländer haben's da schon einfacher.

Die Sonderregeln werde ich mir von einem französischen Mitarbeiter geben lassen.

Die Zahlwörter werde ich in eine Datei verlegen, damit es keine Probleme mit der CCSID gibt.

Nochmals Danke.

[TARASIK]

Hallo Fuerchau,
kann auch mit keiner Französischen Konvertierungsprogramm
dienen, aber noch ein paar andere Programme:

CONVERTING NUMBERS TO WORDS
Q: How do I programmatically convert a number to words such as those you'd
see on a check?

A: This is a commonly requested routine. Fortunately, you have several
solutions to choose from, all of which are listed below:

a. Gary Guthrie's NbrToWords RPG ILE Service Program
http://www.iseriesnetwork.com/article.cfm?ID=10581_

b. Jeff Crosby's SUBNtoA RPG ILE Service Program
http://groups.google.com/groups?q=Su...ods.com&rnum=1

c. iSeries NEWS RPG program CHECKWORDS
(This appeared a long time ago in the book "AS/400 Power Tools, Vol. 1.")
http://www.iseriesnetwork.com/nodere...heckWords.zip_

There are at least two commercial products that include a callable program
that converts numbers to words:

d. Jim Sloan's TAA Productivity Tools (the follow-on product to QUSRTOOL) _
http://www.taatool.com/document/L_bldchkamt.htm_.

e. Golden State Software Systems' Function Junction
http://www.gsssi.com/

Gruss TARASIK

[Fuerchau]

@Tarasik

Ein paar der Links funktionieren anscheinend nur wenn entsprechende Berechtigung vorliegt.

Und: Geld darf es wie immer nicht kosten !

[Thimi]

Hi Fuerchau,
ich muss BHAUSER Recht geben! Die Problematik ist die Gleiche! Die Wort-Zahlen werden in eine Ladezeittabelle hinterlegt.

Beispiel: deutsch englisch französisch
21 einundzwanzig twenty-one vingt-et-un
22 zweiundzwanzig twenty-two vingt-deux
99 neunundneuntig ninety-nine quatre-vingt- dix-neuf. usw...

Du brauchst nur die entsprechende Zahlen an die richtige Stelle einzutragen.

Ich habe sowas damals für die Scheckschreibung auf der /36 geschrieben. Falls Du Problemen hast, suche ich Dir gerne die Sources heraus.

Schöne Grüsse aus hamburg
Thierry

Mailto: thierry@tecs.de

[Fuerchau]

Im deutschen gibt es aber trotzdem ein paar Ausnahmen, die abweichend programmiert werden müssen, siehe hierzu meinen obigen Kommentar (bzgl. einhundert aber einhundertundeins)

[Thimi]

mag sein. Auf frz. gibt es solche Ausnahmen nicht!
Gruss
Th

[Thimi]

Tschuldigung, ich war voreilig!
es gibt doch paar Ausnahmen. Nämlich vingt et un(21), trente et un(31), quarante et un (41),

(et)

deux millions

Gruss
Th

[uwer]

Hallo

ich habe schon vor Jahren ein Scheckprogramm geschrieben,
das auch heute noch in Einsatz ist. Zur Problematik der aus-
geschriebenen Zahlen gab mir die Bank damals den Tip,
die Zahlen nacheinander zu drucken.

Beispiel:

1904 = eins * neun * null * vier

Bis jetzt hat sich noch niemand beschwert. Wäre das eine
Alternative?

Gruß

Uwe