CurrToWords (Pascal-Script) #

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;

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 Skript ein Punkt anstelle eines Kommas eingegeben werden muss, da die Darstellung im Skript immer international ist.