Convert Number to Words in Crystal Report

numbervar RmVal:=0; numbervar Amt:=0; numbervar pAmt:=0; stringvar InWords :=" "; Amt := {@UnboundNumber1}; 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"; UPPERCASE(InWords)

1 Reply

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

Srisailam ravirala14y ago
numbervar RmVal:=0; numbervar Amt:=0; numbervar pAmt:=0; stringvar InWords :=" "; Amt := {@UnboundNumber1}; 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"; UPPERCASE(InWords)
0