OK: I need a function which converts number to wordsdescribing numbers i.e.

SELECT
 MyNumber,
 NumberToWords(MyNumber)

FROM My table would return

1,234, One thousand two hundred and thirty four.
25,000, Twenty five thousand.
12,598 Twelve thousand five hundred and ninety eight

... ouch.

I need it for legal documents where the user has to sign having seen both the number written as a number and written as long-hand-text ...

Of course I can force staff to type in the text versions long hand ... but a FUNCTION would be genius.

--

I don't really expect ELEVATE to have such a function ever (Tim??!!) but has anyone ever found something that does this, perhaps a specialised Delphi accounting / legal component?

Oh: And wait for it ... I need to work in English AND French (:-?

Adam


You can either choose to do something like this in SQL/PSM or in Delphi. If you choose the latter then you can search on www.torry.net for conversion routines (eg Branko's Conversion Components v.1.0)

You'll probably have to add the French bits yourself though.

Roy Lambert

Brilliant Roy! The code you recommended is decent & freeware. Written in Serbian-pascal, which is a bit of a complication. I'll solve the problem in Delphi for now.

Adding French will take a while, as their number system is really messy. (for example, they say "ninety five" "four twenties fifteen")

... Guess it _could_ be written as a SQL function ... I'd hate to have to try it though!

Adam

> Adding French will take a while, as their number system is really messy. (for example, they say "ninety five" "four
twenties fifteen")
>

Definitely is more compicated than English!

> .. Guess it _could_ be written as a SQL function ... I'd hate to have to try it though!


Find attached an attempt at it.  I used http://www.french-linguistics.co.uk/tutorials/numbers as my reference for the
French.  Apologies for the formatting.  It is only good up to 999,999,999.99.

You call valueinwords(currency) for english and frvalueinwords(currency) for French.  I guess the currency names could
be parameters

John

John


When I looked at it I first spotted cents and thought "why is he assuming $"


Roy Lambert

Roy

>
> > When I looked at it I first spotted cents and thought "why is he assuming $"
>

It's our new currency post independence

John

John

>> > When I looked at it I first spotted cents and thought "why is he assuming $"
>>
>
>It's our new currency post independence

Nope - our new currency is called "where has all the money gone"

Roy Lambert

Adam,

<< .. Guess it _could_ be written as a SQL function ... I'd hate to have to
try it though! >>

It's very easy to pop such Delphi code into an external module for EDB:

In Delphi, use:

File/New/Other/ElevateDB/ElevateDB External Module

and then just put the code into the procedure
TEDBExternalModule1.EDBExternalModuleRoutine with something like this:

if AnsiSameText(RoutineName,'NumberToWords') then
  begin
  { Put code here }
  end;

The external modules work just like the custom functions do in DBISAM -
ParamByName(), etc. for dealing with the parameters, and a special "Result"
parameter for returning results of function calls.

Once you have the external module compiled, you can add it to EDB with
CREATE MODULE, and then reference it as a function via CREATE
FUNCTION...EXTERNAL

--
Tim Young
Elevate Software
www.elevatesoft.com

WOW!!

Boy do I have a lot to learn about EDB.