Menü

CurrToWords (Pascal-Script)

Zurück | Ebene zurück

Beschreibung

CurrToWords konvertiert einen Währungswert in Worte um diesen beispielsweise auf Schecks benutzen zu können.

Syntax

function CurrToWords(Value: Currency): string;

Argumente

CurrToWords konvertiert den in Value übergebenen Währungswert einen String, der den Wert in Worte fasst. Beispiel: aus 62 wird „sechs-zwei“. 

Beispiel

var
  S : String;
  c : Currency;
begin
  c:=12.236;
  S:=CurrToWords(c);
  ShowMessage(s);
end;
Regeln zum Nachvollziehen des Scripts finden Sie hier.

Der Currency-Variablen c wird der Wert 12,236 zugewiesen.  Dieser wird anschließend mit CurrToWords in den Text s umgewandelt.

ShowMessage zeigt: eins-zwei 24/100

Beachten Sie, dass im Script ein Punkt anstelle eines Kommas eingegeben werden muss, da die Darstellung im Script immer international ist.