Unit Moneycnv

Conversion routine for numeric string to plain language string.} {Max conversion is 99,999,999.99} {Version 1.0 02-26-96} {Roger Nyberg roger@servtech.com

Classes

Functions

MoneyStr - Set reverse on tenth translation

Types

devidermap
nummap
nummap2

Constants

AndStr
CurrencyStr
devidestr
numstr
numstr2
ReverseOverTwenty

Variables


Functions


function MoneyStr(var Text:string):String;

Set reverse on tenth translation

Types


devidermap = array[0..2] of string[9];

nummap = array[0..19] of string[9];

nummap2 = array[0..9] of string[9];

Constants

AndStr = 'And'

CurrencyStr = 'Dollars'

devidestr = ('Hundred','Thousand','Million')

numstr = ('','One','Two','Three','Four','Five','Six','Seven','Eight','Nine', 'Ten','Eleven','Twelve','Thirteen','Fourteen','Fifteen','Sixteen','Seventeen', 'Eighteen','Nineteen')

Constants for US currency. Do not remove empty string

numstr2 = ('','','Twenty','Thirty','Fourty','Fifty', 'Sixty','Seventy','Eighty','Ninty')

ReverseOverTwenty = False


Variables