Amount In Word in Crystal Report Formula.

NumberVar RmVal:=0;
NumberVar Amt:=0;
NumberVar pAmt:=0;
StringVar InWords :="Rupees ";
Amt := ({#Field_Name});

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";

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)