|This component gives an opportunity of reception from numeric value to its verbal string. The opportunity of the task of currency (US dollars, DM, euros, british pounds, UAH, ukrainian karbovanets and Russian roubles, South Africa Rands, Dominican Republic peso, Rupiah), language of translation (English, German, Russian, Ukrainian, Spanish, Indonesian) and types of number translation in a string is realized.|
|5K||Last updated: December 08, 2003|
|D3-7, CB3-6||Freeware (with sources): smcmpnt.zip|
You can define:
property Currency - currency for translation (tcUAH, tcKarbovanec, tcUSD, tcRUR, tcDM, tcPound, tcEuro)
property Language - language for translation (tlUkrainian, tlRussian, tlEnglish, tlGerman, tlSpain)
property Expand - types for translation
exWholeSum: expand of the whole part of the number value ('fourty five' or '45')
exWholeCurrency: expand of the currency for whole part ('rubles' or 'rub')
exFractionSum: expand of the fractional part of the number value ('ten' or '10')
exFractionCurrency: expand of the currency for fractional part ('centes' or 'cnt')
ccLower: all characters in a target string is a small
ccProper: first character is a capital, all rest is a small
ccUpper: all characters in a target string is a capital
The opportunity of use not component, and usual call of
function (without registration components), returning verbal
function GetMoneyStr(Value: Double; Expand: TExpand; Language: TLanguage; Currency: TCurrency; CharCase: TCharCase): string;
PS in near future I plan to add a new languages of translation, and also reception of verbal representation not only numbers, but also dates!
Big thanks to Lars Paprotny (email@example.com, firstname.lastname@example.org). Without Lars help I couldn't create a english and german language support.
If anybody want to help me in new languages support then send a message to me. But component is freeware and I cann't offer a fee for translation.
Copyrightę 1998-2021, Scalabium
Software. All rights reserved.