Amount in word in Crystal Report

Ankur Mistry

10y1.2kReports using C#

i have a total amount field in one report and i have to Display amount in word.

Ex. : 12,000 - > Twelve thousand only.

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Ankur Mistry10y ago
Got solution thanks.

numbervar RmVal:=0;
numbervar Amt:=0;
numbervar pAmt:=0;
stringvar InWords :="Rupees ";
Amt := Sum ({OutwardPOReport;1.TotalAmount}) ;
if Amt > 10000000 then RmVal := truncate(Amt/10000000);
if Amt = 10000000 then RmVal := 1;
if RmVal = 1 then
InWords := InWords + " " + towords(RmVal,0) + " crore"
else
if RmVal > 1 then InWords := InWords + " " + towords(RmVal,0) + " crores";
Amt := Amt - Rmval * 10000000;
if Amt > 100000 then RmVal := truncate(Amt/100000);
if Amt = 100000 then RmVal := 1;
if RmVal = 1 then
InWords := InWords + " " + towords(RmVal,0) + " lakhs"
Else
If RmVal > 1 then InWords := InWords + " " + ToWords(RmVal,0) + " Lakhs";
Amt := Amt - Rmval * 100000;
if Amt > 0 then InWords := InWords + " " + towords(truncate(Amt),0);
pAmt := (Amt - truncate(Amt)) * 100;
if pAmt > 0 then
InWords := InWords + " and " + towords(pAmt,0) + " paisa only"
else
InWords := InWords + " only";
PROPERCASE(InWords)
Sourabh Somani10y ago
ok directly use this first: ToWords(213522.50)
Ankur Mistry10y ago
Hi saurabh,

Amount is : 213522.50
i tried your formula
its Display :Rupees two hundred thirteen thousand five hundred twenty-two and paisa fifty only

did i have to repeat some part?
Sourabh Somani10y ago
Hi,
You can use ToWords() Function in Your Crystal Report...

e.g.
currencyvar tt;
currencyvar dect;
tt :=100.30;
dect := tt - Truncate(tt);
tt := truncate(tt);
dect := dect * 100;
if dect = 0 then
'Rupees ' + ToWords (tt,0 ) + ' Only'
else
'Rupees ' + ToWords (tt,0) + ' And Paisa ' + ToWords(dect,0) + ' Only ';