Just Useful :: 
In most accounting applications there is a need to convert currency values to words. Here's a sample project to convert (depending on the real type used) positive and negative real values up to 1.00E18 to English words. The return value can represent either currency or numerals. For example 1234.567 will be returned as "one thousand, two hundred and thirty four dollars and fifty six cents". Full Delphi source code included.
In most accounting applications there is a need to convert currency values to words. Here's a sample project to convert (depending on the real type used) positive and negative real values up to 1.00E18 to English words. The return value can represent either currency or numerals. For example 1234.567 will be returned as "one thousand, two hundred and thirty four dollars and fifty six cents". Full Delphi source code included.
Read the full article to learn how to Convert Numbers (Currency) to Words
Related:
Hi,
should be “1 dollar 10 cent”, shouldn’t it?
Regards,
Arvid
Zlatko,
imaš sitnu grešku na liniji 125
sDecValue := Copy(FormatFloat(’.#########’, frac(abs(Number))), 0, 2);
falila je nula (0).
I ne radi baš sa hrvatskim odvajanjem decimala
Pozdrav!
I da,
zaboravio sam napomenuti da je na engleskom malo lakše isprogramirati nego na hrvatskom
@Fable,
Please write comments in English (so others can understand). Thanks for the tip on the missing “0″.
Sorry Zlatko, I forgot..
NP…
Hi, nice example. go on.