Office: (Office 2013) zahl in worte

Zu welcher konkreten Aufgabenstellung, Köbi?

 

Sorry, ich habe diesen Beitrag erst jetzt entdeckt.

Das macht die Sache einfacher - oder auch nicht:

- Einen Euro-Betrag von 1,20 würde man dann in "einskommazwanzig" transferieren und nicht in "einskommezweinull", wie ich es programmierte.

- Was aber, wenn die Ländereinstellung für den Datentyp Currency nicht zwei, sondern keine, eine oder drei Stellen hinter dem Dezimaltrenner vorsieht?

 

Hallo Maxel

Ich meine damit, wie man Punkt oder Komma als Dezimaltrenner verwenden kann.
In deinem Code habe ich jetzt einfach mal den das Komma durch den Punkt ersetzt. Das funktioniert hier. Aber in andern Ländern, die anstelle des Punktes ein Komma verwenden wird das Probleme ergeben. Wie kann die Funktion so geändert werden, dass sie je nach Dezimaltrenner auf Punkt oder Komma reagiert?

Ich muss sagen, dass die Frage rein wissensdurstig ist.*mrcool Im Moment habe ich keinen konkreten Bedarf.
Aber es interessiert mich halt einfach.
Also reiss dir kein Bein aus für eine Lösung.

 

In den Ländereinstellungen wird jeweils für den Rechner fixiert, welches Zeichen als Dezimaltrenner zu verwenden wäre. Also müsste man für eine Universalität seines Codes diese Einstellung abfragen und berücksichtigen.

 

Hallo Köbi,

beim Starten der Anwendung kann man einmalig die Einstellungen ermittteln.
Natürlich könnte man die Ländereinstellungen usw. alles abfragen, aber am einfachsten ist wahrscheinlich, wenn man mit FormatCurreny() ein vorgegebene, bekannte Zahl, z.B. 1234.56!, in VBA formattiert und einem String zuweist. Dieser kann dann auf die Einstellungen bezügl. Währungskennzeichen, Dezimaltrenner und Tausendertrenner hin ausgewertet werden.
Code:

Nur mal so als Idee.

Gruß Ulrich

 

Vielen Dank für die Antworten.
Mal sehen, ob ich sowas hinkriege.

 

\@Eberhard
@Ulrich

Ländereinstellung ist schon ein gutes Stichwort

Nur: Die Funktion von Karl Donaubauer, auf der mein Beispiel basiert, wandelt (arabische) Ziffernfolgen ausschließlich in deutsche Wörter um.

Was nutzt es also z. B. einem User in Burkina Faso, wenn er mit seiner Ländereinstellung zwar die zutreffende Währung CFA-Franc bedient weiß, nicht aber seine Landessprache Französisch? Da müsste man noch gewaltig in die Programmierung investieren...

 

\@Maxel.
Da hast du selbstredend gewaltig Recht. Für eine richtige Universalität muss man erheblich mehr investieren, und Multisprachfähigkeit würde sich dann schnell nicht nur auf einen Dezimaltrenner beschränken.

Hier an der Stelle darf man aber daran denken, dass Köbi Schweizer ist, und diese weichen von dem gewöhnlichen Deutsch etwas ab, z.B. eben beim Dezimaltrenner.

Ein weiterer Fall wäre jener, wenn ich auf einem englischsprachigen System arbeite, schon wegen der besseren internationalen Kooperation, meine Ausgabe nach draußen aber in der ortsüblichen Sprache haben will.

 

\@Maxel:
Ja klar, aber in der Schweitz wird auch dt. (?) gesprochen, aber die Währungsdarstellung ist eine andere und das könnte somit berücksichtigt werden.

Aber du hast schon recht damit, das mindestens die gleiche Sprache verwendet werden sollte.

Gruß Ulrich

 

Wenn man es bei der Sprache Deutsch belässt und sich nicht auf Währungsformate beschränkt, müsste man den User nach dem Sinn des letzten Trennzeichens (sofern vorhanden) fragen - ermittelbar per InStrRev():

Optionsgruppe Letztes Trennzeichen:
- Tausenderpunkt
- Dezimaltrennzeichen

Eine Erweiterung wäre denkbar:

Optionsgruppe Dezimalwörter
- einzeln (z. B. 0,23 = "nullkommezweidrei")
- zusammenhängend (z. B. 0,23 = "nullkommedreiundzwanzig")

Ein weites Feld...

 

Hallo Ulrich

Ja klar, und daneben auch noch Französisch, Italienisch und Rätoromanisch.*Smilie *wink.gif*

 

Hi Maxel,
ich wollte gerne genauso scheriben:
- zusammenhängend (z. B. 0,23 = "nullkommedreiundzwanzig")

aber wie kann ich in vba scheriben.
danke*Smilie

 

Wobei ich ja ab 3 Nachkommastellen wiederum die Ziffern einzeln ausprechen würde...

Nur mal als Ansatz...

 

Wenn ich mal Zeit habe, schreibe ich den Code für Währung mit 2 Kommastellen. Kann aber etwas dauern...

 

Sehr nett