|
Local CurrencyVar Number:=123 ;< /FONT>
// the number to whom you want to convert you can also write field name like
{tablename.fieldname}
Local CurrencyVar RoundPaisa := round(remainder(Number,1)*100);
Local Stringvar Rupeespart := towords(int(Number),0);
Local Stringvar Paisapart := towords(int(RoundPaisa),0);
if instr(Rupeespart, "hundred") > 0
then
Rupeespart := Replace (Rupeespart,"hundred" ,"hundred and"
);
if instr(Paisapart, "zero") > 0
then
Rupeespart + " Rupess Only "
else
Rupeespart + " Rupess and " + Paisapart + " Paisa"
You can also convert this function into other format simply by changing
Rupees with Dollar and Paisa with Cents.
|