Amount in word in Crystal Report

Question

i have a total amount field in one report and i have to Display amount in word. Ex. : 12,000 - > Twelve thousand only.

Ankur Mistry · Answer

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 Somani · Answer

ok directly use this first: ToWords(213522.50)

Ankur Mistry · Answer

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 Somani · Answer

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

Amount in word in Crystal Report

Answers (4)