How can we Convert Amount in Words in Crystal Report

[Former Member]

Hi Experts ,

How can i convert Amount in Words in Crystal Report, is there any formula to convert the amount in words

kindly help me.

Regards

Rahul

[kvbalakumar · Accepted solution]

Hi Rahul,

Try this

numbervar RmVal:=0; 
numbervar Amt:=0; 
numbervar pAmt:=0; 
stringvar InWords :="Rupees "; 
Amt := ({ORCT.DocTotal});
Amt := round(Amt,0); 
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)

Regards,

Bala

[Former Member · Accepted solution]

Hi Bala,

I have already tried this solution but its not working for all cases, some times it gives " ELEVEN"

for 8.00 + 4.00 . i think it takes the numbers before rounds off. i want to get the solution that will for all cases

thanks

Rahul

[Former Member · Accepted solution]

Hi Rahul,

You need to change all truncate to Round such as truncate(Amt) to Round(Amt,0).

Thanks,

Gordon

[Former Member · Accepted solution]

Hi Gordon,

Thanks for Solution ,it really works, but i want one more help.

I want to display every first letter of Amount 's word should be in Capital letter.

for example. 10500 - 'Ten Thousand Five Hundred Only'

how can i apply this format

Thanks

Rahul

[kvbalakumar · Accepted solution]

Hi Rahul,

Just change the last line in the formula as

PROPERCASE(InWords)

instead of

UPPERCASE(InWords

Regards,

Bala

[former_member430997 · Accepted solution]

HI there !

This formula is working only for the value less then 1 crore, what is solution for more then a crore?

Thanks

Sridhar.P

[jeestyles · Accepted solution]

Thanks balakrishnan its working thanks for your support

[former_member1301566]

Hi, If we do not reset the value of IntVal, then PrimeVal 100000000 will show an error. Please check this code. It works fine

numbervar IntVal:=0;
numbervar PrimeVal:=0;
numbervar DecimalVal:=0;
stringvar InWords :="Taka ";

PrimeVal := ({@amount});

if PrimeVal > 10000000 then IntVal := truncate(PrimeVal/10000000);
if PrimeVal = 10000000 then IntVal := 1;
if IntVal = 1 then
InWords := InWords + " " + towords(IntVal,0) + " Crore"
else if IntVal > 1 then InWords := InWords + " " + towords(IntVal,0) + " Crore";

PrimeVal := PrimeVal - IntVal * 10000000;
IntVal := 0;
if PrimeVal > 100000 then IntVal := truncate(PrimeVal/100000);
if PrimeVal = 100000 then IntVal := 1;
if IntVal >=1 then InWords := InWords + " " + towords(IntVal,0) + " Lac";

PrimeVal := PrimeVal - IntVal * 100000;
IntVal := 0;
if PrimeVal > 0 then InWords := InWords + " " + towords(truncate(PrimeVal),0);
DecimalVal := (PrimeVal - truncate(PrimeVal)) * 100;
if DecimalVal > 0 then
InWords := InWords + " and " + towords(DecimalVal,0) + " Paisa only"
else InWords := InWords + " Only";
//InWords

ProperCase(InWords)

[faruksxd]

This is tested, any on can Use this.!

//....................Script By....................//

//................Md Farukul Islam.................//

//...................01741328183...................//

(

numbervar RmVal:=0;

numbervar Amt:=0;

numbervar pAmt:=0;

stringvar InWords :='';

Amt:= {ChequeAmount.TotalPremium} ;

Amt:=int(Amt);

if Amt > 10000000 then RmVal:=truncate(Amt/10000000);

if Amt = 10000000 then RmVal:=1;

if RmVal = 1 then InWords:= InWords+'' +

Switch (RmVal=1, 'GK',

RmVal=2, '`yB',

RmVal=3, 'wZb',

RmVal=4, 'Pvi',

RmVal=5, 'cvuP',

RmVal=6, 'Qq',

RmVal=7, 'mvZ',

RmVal=8, 'AvU',

RmVal=9, 'bq',

RmVal=10, '`k',

RmVal=11, 'GMvi',

RmVal=12, 'evi',

RmVal=13, '†Zi',

RmVal=14, '†PŠÏ',

RmVal=15, 'cv‡bi',

RmVal=16, '†lvj',

RmVal=17, 'm‡Zi',

RmVal=18, 'AvVvi',

RmVal=19, 'Ewbk',

RmVal=20, 'wek',

RmVal=21, 'GKzk',

RmVal=22, 'evBk',

RmVal=23, '†ZBk',

RmVal=24, 'PweŸk',

RmVal=25, 'cwPk',

RmVal=26, 'QvweŸk',

RmVal=27, 'mvZvk',

RmVal=28, 'AvUvk',

RmVal=29, 'EbwÎk',

RmVal=30, 'wÎk',

RmVal=31, 'GKwÎk',

RmVal=32, 'ewÎk',

RmVal=33, '†ZwÎk',

RmVal=34, '†PŠwÎk',

RmVal=35, 'cuqwÎk',

RmVal=36, 'QwÎk',

RmVal=37, 'mvBwÎk',

RmVal=38, 'AvUwÎk',

RmVal=39, 'EbPwj­k',

RmVal=40, 'Pwj­k',

RmVal=41, 'GKPwj­k',

RmVal=42, 'weqvwj­k',

RmVal=43, '†ZZvwj­k',

RmVal=44, 'Pzqvwj­k',

RmVal=45, 'cuqZvwj­k',

RmVal=46, '†QPwj­k',

RmVal=47, 'mvZPwj­k',

RmVal=48, 'AvUPwj­k',

RmVal=49, 'EbcÂvk',

RmVal=50, 'cÂvk',

RmVal=51, 'GKvbœ',

RmVal=52, 'evqv‡bœv',

RmVal=53, 'wZàvbœ',

RmVal=54, 'Pzqvbœ',

RmVal=55, 'cÂvbœ',

RmVal=56, 'Qvcvbœ',

RmVal=57, 'mvZvbœ',

RmVal=58, 'AvUvbœ',

RmVal=59, 'EblvU',

RmVal=60, 'lvU',

RmVal=61, 'GKlwUª',

RmVal=62, 'evlwUª',

RmVal=63, '†ZlwUª',

RmVal=64, '†PŠlwUª',

RmVal=65, 'cqlwUª',

RmVal=66, '†QlwUª',

RmVal=67, 'mvZlwUª',

RmVal=68, 'AvUlwUª',

RmVal=69, 'EbmËi',

RmVal=70, 'mËi',

RmVal=71, 'GKvËi',

RmVal=72, 'evnvËi',

RmVal=73, 'wZqvËi',

RmVal=74, 'PzqvËi',

RmVal=75, 'cuPvËi',

RmVal=76, 'wQqvËi',

RmVal=77, 'mvZvËi',

RmVal=78, 'AvUvËi',

RmVal=79, 'EbAvwk',

RmVal=80, 'Avwk',

RmVal=81, 'GKvwk',

RmVal=82, 'weivwk',

RmVal=83, 'wZivwk',

RmVal=84, 'Pzivwk',

RmVal=85, 'cuPvwk',

RmVal=86, 'wQqvwk',

RmVal=87, 'mvZvwk',

RmVal=88, 'AvUvwk',

RmVal=89, 'EbbeŸB',

RmVal=90, 'beŸB',

RmVal=91, 'GKvbeŸB',

RmVal=92, 'weivbeŸB',

RmVal=93, 'wZivbeŸB',

RmVal=94, 'PzivbeŸB',

RmVal=95, 'cuPvbeŸB',

RmVal=96, 'wQqvbeŸB',

RmVal=97, 'mvZvbeŸB',

RmVal=98, 'AvUvbeŸB',

RmVal=99, 'wbivbeŸB')+' †KvwU '

else

if RmVal > 1 then InWords:=InWords+''+

Switch (RmVal=1, 'GK',

RmVal=2, '`yB',

RmVal=3, 'wZb',

RmVal=4, 'Pvi',

RmVal=5, 'cvuP',

RmVal=6, 'Qq',

RmVal=7, 'mvZ',

RmVal=8, 'AvU',

RmVal=9, 'bq',

RmVal=10, '`k',

RmVal=11, 'GMvi',

RmVal=12, 'evi',

RmVal=13, '†Zi',

RmVal=14, '†PŠÏ',

RmVal=15, 'cv‡bi',

RmVal=16, '†lvj',

RmVal=17, 'm‡Zi',

RmVal=18, 'AvVvi',

RmVal=19, 'Ewbk',

RmVal=20, 'wek',

RmVal=21, 'GKzk',

RmVal=22, 'evBk',

RmVal=23, '†ZBk',

RmVal=24, 'PweŸk',

RmVal=25, 'cwPk',

RmVal=26, 'QvweŸk',

RmVal=27, 'mvZvk',

RmVal=28, 'AvUvk',

RmVal=29, 'EbwÎk',

RmVal=30, 'wÎk',

RmVal=31, 'GKwÎk',

RmVal=32, 'ewÎk',

RmVal=33, '†ZwÎk',

RmVal=34, '†PŠwÎk',

RmVal=35, 'cuqwÎk',

RmVal=36, 'QwÎk',

RmVal=37, 'mvBwÎk',

RmVal=38, 'AvUwÎk',

RmVal=39, 'EbPwj­k',

RmVal=40, 'Pwj­k',

RmVal=41, 'GKPwj­k',

RmVal=42, 'weqvwj­k',

RmVal=43, '†ZZvwj­k',

RmVal=44, 'Pzqvwj­k',

RmVal=45, 'cuqZvwj­k',

RmVal=46, '†QPwj­k',

RmVal=47, 'mvZPwj­k',

RmVal=48, 'AvUPwj­k',

RmVal=49, 'EbcÂvk',

RmVal=50, 'cÂvk',

RmVal=51, 'GKvbœ',

RmVal=52, 'evqv‡bœv',

RmVal=53, 'wZàvbœ',

RmVal=54, 'Pzqvbœ',

RmVal=55, 'cÂvbœ',

RmVal=56, 'Qvcvbœ',

RmVal=57, 'mvZvbœ',

RmVal=58, 'AvUvbœ',

RmVal=59, 'EblvU',

RmVal=60, 'lvU',

RmVal=61, 'GKlwUª',

RmVal=62, 'evlwUª',

RmVal=63, '†ZlwUª',

RmVal=64, '†PŠlwUª',

RmVal=65, 'cqlwUª',

RmVal=66, '†QlwUª',

RmVal=67, 'mvZlwUª',

RmVal=68, 'AvUlwUª',

RmVal=69, 'EbmËi',

RmVal=70, 'mËi',

RmVal=71, 'GKvËi',

RmVal=72, 'evnvËi',

RmVal=73, 'wZqvËi',

RmVal=74, 'PzqvËi',

RmVal=75, 'cuPvËi',

RmVal=76, 'wQqvËi',

RmVal=77, 'mvZvËi',

RmVal=78, 'AvUvËi',

RmVal=79, 'EbAvwk',

RmVal=80, 'Avwk',

RmVal=81, 'GKvwk',

RmVal=82, 'weivwk',

RmVal=83, 'wZivwk',

RmVal=84, 'Pzivwk',

RmVal=85, 'cuPvwk',

RmVal=86, 'wQqvwk',

RmVal=87, 'mvZvwk',

RmVal=88, 'AvUvwk',

RmVal=89, 'EbbeŸB',

RmVal=90, 'beŸB',

RmVal=91, 'GKvbeŸB',

RmVal=92, 'weivbeŸB',

RmVal=93, 'wZivbeŸB',

RmVal=94, 'PzivbeŸB',

RmVal=95, 'cuPvbeŸB',

RmVal=96, 'wQqvbeŸB',

RmVal=97, 'mvZvbeŸB',

RmVal=98, 'AvUvbeŸB',

RmVal=99, 'wbivbeŸB')+' †KvwU';

Amt:=Amt - Rmval*10000000;

if Amt < 10000000 then RmVal:=truncate(Amt/100000);

if Amt = 100000 then RmVal:=1;

if RmVal >=1 then InWords:=InWords+' '+

Switch (RmVal=1, 'GK',

RmVal=2, '`yB',

RmVal=3, 'wZb',

RmVal=4, 'Pvi',

RmVal=5, 'cvuP',

RmVal=6, 'Qq',

RmVal=7, 'mvZ',

RmVal=8, 'AvU',

RmVal=9, 'bq',

RmVal=10, '`k',

RmVal=11, 'GMvi',

RmVal=12, 'evi',

RmVal=13, '†Zi',

RmVal=14, '†PŠÏ',

RmVal=15, 'cv‡bi',

RmVal=16, '†lvj',

RmVal=17, 'm‡Zi',

RmVal=18, 'AvVvi',

RmVal=19, 'Ewbk',

RmVal=20, 'wek',

RmVal=21, 'GKzk',

RmVal=22, 'evBk',

RmVal=23, '†ZBk',

RmVal=24, 'PweŸk',

RmVal=25, 'cwPk',

RmVal=26, 'QvweŸk',

RmVal=27, 'mvZvk',

RmVal=28, 'AvUvk',

RmVal=29, 'EbwÎk',

RmVal=30, 'wÎk',

RmVal=31, 'GKwÎk',

RmVal=32, 'ewÎk',

RmVal=33, '†ZwÎk',

RmVal=34, '†PŠwÎk',

RmVal=35, 'cuqwÎk',

RmVal=36, 'QwÎk',

RmVal=37, 'mvBwÎk',

RmVal=38, 'AvUwÎk',

RmVal=39, 'EbPwj­k',

RmVal=40, 'Pwj­k',

RmVal=41, 'GKPwj­k',

RmVal=42, 'weqvwj­k',

RmVal=43, '†ZZvwj­k',

RmVal=44, 'Pzqvwj­k',

RmVal=45, 'cuqZvwj­k',

RmVal=46, '†QPwj­k',

RmVal=47, 'mvZPwj­k',

RmVal=48, 'AvUPwj­k',

RmVal=49, 'EbcÂvk',

RmVal=50, 'cÂvk',

RmVal=51, 'GKvbœ',

RmVal=52, 'evqv‡bœv',

RmVal=53, 'wZàvbœ',

RmVal=54, 'Pzqvbœ',

RmVal=55, 'cÂvbœ',

RmVal=56, 'Qvcvbœ',

RmVal=57, 'mvZvbœ',

RmVal=58, 'AvUvbœ',

RmVal=59, 'EblvU',

RmVal=60, 'lvU',

RmVal=61, 'GKlwUª',

RmVal=62, 'evlwUª',

RmVal=63, '†ZlwUª',

RmVal=64, '†PŠlwUª',

RmVal=65, 'cqlwUª',

RmVal=66, '†QlwUª',

RmVal=67, 'mvZlwUª',

RmVal=68, 'AvUlwUª',

RmVal=69, 'EbmËi',

RmVal=70, 'mËi',

RmVal=71, 'GKvËi',

RmVal=72, 'evnvËi',

RmVal=73, 'wZqvËi',

RmVal=74, 'PzqvËi',

RmVal=75, 'cuPvËi',

RmVal=76, 'wQqvËi',

RmVal=77, 'mvZvËi',

RmVal=78, 'AvUvËi',

RmVal=79, 'EbAvwk',

RmVal=80, 'Avwk',

RmVal=81, 'GKvwk',

RmVal=82, 'weivwk',

RmVal=83, 'wZivwk',

RmVal=84, 'Pzivwk',

RmVal=85, 'cuPvwk',

RmVal=86, 'wQqvwk',

RmVal=87, 'mvZvwk',

RmVal=88, 'AvUvwk',

RmVal=89, 'EbbeŸB',

RmVal=90, 'beŸB',

RmVal=91, 'GKvbeŸB',

RmVal=92, 'weivbeŸB',

RmVal=93, 'wZivbeŸB',

RmVal=94, 'PzivbeŸB',

RmVal=95, 'cuPvbeŸB',

RmVal=96, 'wQqvbeŸB',

RmVal=97, 'mvZvbeŸB',

RmVal=98, 'AvUvbeŸB',

RmVal=99, 'wbivbeŸB')+' j¶';

Amt:=Amt - Rmval * 100000;

if Amt < 100000 then RmVal:=truncate(Amt/1000);

if Amt = 1000 then RmVal:=1;

if RmVal >=1 then InWords:=InWords+' '+

Switch (RmVal=1, 'GK',

RmVal=2, '`yB',

RmVal=3, 'wZb',

RmVal=4, 'Pvi',

RmVal=5, 'cvuP',

RmVal=6, 'Qq',

RmVal=7, 'mvZ',

RmVal=8, 'AvU',

RmVal=9, 'bq',

RmVal=10, '`k',

RmVal=11, 'GMvi',

RmVal=12, 'evi',

RmVal=13, '†Zi',

RmVal=14, '†PŠÏ',

RmVal=15, 'cv‡bi',

RmVal=16, '†lvj',

RmVal=17, 'm‡Zi',

RmVal=18, 'AvVvi',

RmVal=19, 'Ewbk',

RmVal=20, 'wek',

RmVal=21, 'GKzk',

RmVal=22, 'evBk',

RmVal=23, '†ZBk',

RmVal=24, 'PweŸk',

RmVal=25, 'cwPk',

RmVal=26, 'QvweŸk',

RmVal=27, 'mvZvk',

RmVal=28, 'AvUvk',

RmVal=29, 'EbwÎk',

RmVal=30, 'wÎk',

RmVal=31, 'GKwÎk',

RmVal=32, 'ewÎk',

RmVal=33, '†ZwÎk',

RmVal=34, '†PŠwÎk',

RmVal=35, 'cuqwÎk',

RmVal=36, 'QwÎk',

RmVal=37, 'mvBwÎk',

RmVal=38, 'AvUwÎk',

RmVal=39, 'EbPwj­k',

RmVal=40, 'Pwj­k',

RmVal=41, 'GKPwj­k',

RmVal=42, 'weqvwj­k',

RmVal=43, '†ZZvwj­k',

RmVal=44, 'Pzqvwj­k',

RmVal=45, 'cuqZvwj­k',

RmVal=46, '†QPwj­k',

RmVal=47, 'mvZPwj­k',

RmVal=48, 'AvUPwj­k',

RmVal=49, 'EbcÂvk',

RmVal=50, 'cÂvk',

RmVal=51, 'GKvbœ',

RmVal=52, 'evqv‡bœv',

RmVal=53, 'wZàvbœ',

RmVal=54, 'Pzqvbœ',

RmVal=55, 'cÂvbœ',

RmVal=56, 'Qvcvbœ',

RmVal=57, 'mvZvbœ',

RmVal=58, 'AvUvbœ',

RmVal=59, 'EblvU',

RmVal=60, 'lvU',

RmVal=61, 'GKlwUª',

RmVal=62, 'evlwUª',

RmVal=63, '†ZlwUª',

RmVal=64, '†PŠlwUª',

RmVal=65, 'cqlwUª',

RmVal=66, '†QlwUª',

RmVal=67, 'mvZlwUª',

RmVal=68, 'AvUlwUª',

RmVal=69, 'EbmËi',

RmVal=70, 'mËi',

RmVal=71, 'GKvËi',

RmVal=72, 'evnvËi',

RmVal=73, 'wZqvËi',

RmVal=74, 'PzqvËi',

RmVal=75, 'cuPvËi',

RmVal=76, 'wQqvËi',

RmVal=77, 'mvZvËi',

RmVal=78, 'AvUvËi',

RmVal=79, 'EbAvwk',

RmVal=80, 'Avwk',

RmVal=81, 'GKvwk',

RmVal=82, 'weivwk',

RmVal=83, 'wZivwk',

RmVal=84, 'Pzivwk',

RmVal=85, 'cuPvwk',

RmVal=86, 'wQqvwk',

RmVal=87, 'mvZvwk',

RmVal=88, 'AvUvwk',

RmVal=89, 'EbbeŸB',

RmVal=90, 'beŸB',

RmVal=91, 'GKvbeŸB',

RmVal=92, 'weivbeŸB',

RmVal=93, 'wZivbeŸB',

RmVal=94, 'PzivbeŸB',

RmVal=95, 'cuPvbeŸB',

RmVal=96, 'wQqvbeŸB',

RmVal=97, 'mvZvbeŸB',

RmVal=98, 'AvUvbeŸB',

RmVal=99, 'wbivbeŸB')+' nvRvi';

Amt:=Amt - Rmval * 1000;

if Amt < 1000 then RmVal:=truncate(Amt/100);

if Amt = 100 then RmVal:=1;

if RmVal >=1 then InWords:=InWords+' '+

Switch (RmVal=1, 'GK',

RmVal=2, '`yB',

RmVal=3, 'wZb',

RmVal=4, 'Pvi',

RmVal=5, 'cvuP',

RmVal=6, 'Qq',

RmVal=7, 'mvZ',

RmVal=8, 'AvU',

RmVal=9, 'bq',

RmVal=10, '`k',

RmVal=11, 'GMvi',

RmVal=12, 'evi',

RmVal=13, '†Zi',

RmVal=14, '†PŠÏ',

RmVal=15, 'cv‡bi',

RmVal=16, '†lvj',

RmVal=17, 'm‡Zi',

RmVal=18, 'AvVvi',

RmVal=19, 'Ewbk',

RmVal=20, 'wek',

RmVal=21, 'GKzk',

RmVal=22, 'evBk',

RmVal=23, '†ZBk',

RmVal=24, 'PweŸk',

RmVal=25, 'cwPk',

RmVal=26, 'QvweŸk',

RmVal=27, 'mvZvk',

RmVal=28, 'AvUvk',

RmVal=29, 'EbwÎk',

RmVal=30, 'wÎk',

RmVal=31, 'GKwÎk',

RmVal=32, 'ewÎk',

RmVal=33, '†ZwÎk',

RmVal=34, '†PŠwÎk',

RmVal=35, 'cuqwÎk',

RmVal=36, 'QwÎk',

RmVal=37, 'mvBwÎk',

RmVal=38, 'AvUwÎk',

RmVal=39, 'EbPwj­k',

RmVal=40, 'Pwj­k',

RmVal=41, 'GKPwj­k',

RmVal=42, 'weqvwj­k',

RmVal=43, '†ZZvwj­k',

RmVal=44, 'Pzqvwj­k',

RmVal=45, 'cuqZvwj­k',

RmVal=46, '†QPwj­k',

RmVal=47, 'mvZPwj­k',

RmVal=48, 'AvUPwj­k',

RmVal=49, 'EbcÂvk',

RmVal=50, 'cÂvk',

RmVal=51, 'GKvbœ',

RmVal=52, 'evqv‡bœv',

RmVal=53, 'wZàvbœ',

RmVal=54, 'Pzqvbœ',

RmVal=55, 'cÂvbœ',

RmVal=56, 'Qvcvbœ',

RmVal=57, 'mvZvbœ',

RmVal=58, 'AvUvbœ',

RmVal=59, 'EblvU',

RmVal=60, 'lvU',

RmVal=61, 'GKlwUª',

RmVal=62, 'evlwUª',

RmVal=63, '†ZlwUª',

RmVal=64, '†PŠlwUª',

RmVal=65, 'cqlwUª',

RmVal=66, '†QlwUª',

RmVal=67, 'mvZlwUª',

RmVal=68, 'AvUlwUª',

RmVal=69, 'EbmËi',

RmVal=70, 'mËi',

RmVal=71, 'GKvËi',

RmVal=72, 'evnvËi',

RmVal=73, 'wZqvËi',

RmVal=74, 'PzqvËi',

RmVal=75, 'cuPvËi',

RmVal=76, 'wQqvËi',

RmVal=77, 'mvZvËi',

RmVal=78, 'AvUvËi',

RmVal=79, 'EbAvwk',

RmVal=80, 'Avwk',

RmVal=81, 'GKvwk',

RmVal=82, 'weivwk',

RmVal=83, 'wZivwk',

RmVal=84, 'Pzivwk',

RmVal=85, 'cuPvwk',

RmVal=86, 'wQqvwk',

RmVal=87, 'mvZvwk',

RmVal=88, 'AvUvwk',

RmVal=89, 'EbbeŸB',

RmVal=90, 'beŸB',

RmVal=91, 'GKvbeŸB',

RmVal=92, 'weivbeŸB',

RmVal=93, 'wZivbeŸB',

RmVal=94, 'PzivbeŸB',

RmVal=95, 'cuPvbeŸB',

RmVal=96, 'wQqvbeŸB',

RmVal=97, 'mvZvbeŸB',

RmVal=98, 'AvUvbeŸB',

RmVal=99, 'wbivbeŸB')+'kZ';

Amt:=Amt - (RmVal*100); InWords:=InWords+' '+

Switch (Amt=1, 'GK',

Amt=2, '`yB',

Amt=3, 'wZb',

Amt=4, 'Pvi',

Amt=5, 'cvuP',

Amt=6, 'Qq',

Amt=7, 'mvZ',

Amt=8, 'AvU',

Amt=9, 'bq',

Amt=10, '`k',

Amt=11, 'GMvi',

Amt=12, 'evi',

Amt=13, '†Zi',

Amt=14, '†PŠÏ',

Amt=15, 'cv‡bi',

Amt=16, '†lvj',

Amt=17, 'm‡Zi',

Amt=18, 'AvVvi',

Amt=19, 'Ewbk',

Amt=20, 'wek',

Amt=21, 'GKzk',

Amt=22, 'evBk',

Amt=23, '†ZBk',

Amt=24, 'PweŸk',

Amt=25, 'cwPk',

Amt=26, 'QvweŸk',

Amt=27, 'mvZvk',

Amt=28, 'AvUvk',

Amt=29, 'EbwÎk',

Amt=30, 'wÎk',

Amt=31, 'GKwÎk',

Amt=32, 'ewÎk',

Amt=33, '†ZwÎk',

Amt=34, '†PŠwÎk',

Amt=35, 'cuqwÎk',

Amt=36, 'QwÎk',

Amt=37, 'mvBwÎk',

Amt=38, 'AvUwÎk',

Amt=39, 'EbPwj­k',

Amt=40, 'Pwj­k',

Amt=41, 'GKPwj­k',

Amt=42, 'weqvwj­k',

Amt=43, '†ZZvwj­k',

Amt=44, 'Pzqvwj­k',

Amt=45, 'cuqZvwj­k',

Amt=46, '†QPwj­k',

Amt=47, 'mvZPwj­k',

Amt=48, 'AvUPwj­k',

Amt=49, 'EbcÂvk',

Amt=50, 'cÂvk',

Amt=51, 'GKvbœ',

Amt=52, 'evqv‡bœv',

Amt=53, 'wZàvbœ',

Amt=54, 'Pzqvbœ',

Amt=55, 'cÂvbœ',

Amt=56, 'Qvcvbœ',

Amt=57, 'mvZvbœ',

Amt=58, 'AvUvbœ',

Amt=59, 'EblvU',

Amt=60, 'lvU',

Amt=61, 'GKlwUª',

Amt=62, 'evlwUª',

Amt=63, '†ZlwUª',

Amt=64, '†PŠlwUª',

Amt=65, 'cqlwUª',

Amt=66, '†QlwUª',

Amt=67, 'mvZlwUª',

Amt=68, 'AvUlwUª',

Amt=69, 'EbmËi',

Amt=70, 'mËi',

Amt=71, 'GKvËi',

Amt=72, 'evnvËi',

Amt=73, 'wZqvËi',

Amt=74, 'PzqvËi',

Amt=75, 'cuPvËi',

Amt=76, 'wQqvËi',

Amt=77, 'mvZvËi',

Amt=78, 'AvUvËi',

Amt=79, 'EbAvwk',

Amt=80, 'Avwk',

Amt=81, 'GKvwk',

Amt=82, 'weivwk',

Amt=83, 'wZivwk',

Amt=84, 'Pzivwk',

Amt=85, 'cuPvwk',

Amt=86, 'wQqvwk',

Amt=87, 'mvZvwk',

Amt=88, 'AvUvwk',

Amt=89, 'EbbeŸB',

Amt=90, 'beŸB',

Amt=91, 'GKvbeŸB',

Amt=92, 'weivbeŸB',

Amt=93, 'wZivbeŸB',

Amt=94, 'PzivbeŸB',

Amt=95, 'cuPvbeŸB',

Amt=96, 'wQqvbeŸB',

Amt=97, 'mvZvbeŸB',

Amt=98, 'AvUvbeŸB',

Amt=99, 'wbivbeŸB')+ ' ') +

(

Amt:= {ChequeAmount.TotalPremium} ;

Amt:=Int(Amt);

if Amt > 0 then 'UvKv' else '')+

//....................Script By....................//

//................Md Farukul Islam.................//

//...................01741328183...................//

(

numbervar RmVal:=0;

numbervar Amt:=0;

numbervar pAmt:=0;

stringvar InWords :='';

Amt:= {ChequeAmount.TotalPremium} ;

Amt:=round(Amt,2);

pAmt:=(Amt - truncate(Amt))*100;

if pAmt > 0 then InWords:=InWords+' ' +

Switch (pAmt=1, 'GK',

pAmt=2, '`yB',

pAmt=3, 'wZb',

pAmt=4, 'Pvi',

pAmt=5, 'cvuP',

pAmt=6, 'Qq',

pAmt=7, 'mvZ',

pAmt=8, 'AvU',

pAmt=9, 'bq',

pAmt=10, '`k',

pAmt=11, 'GMvi',

pAmt=12, 'evi',

pAmt=13, '†Zi',

pAmt=14, '†PŠÏ',

pAmt=15, 'cv‡bi',

pAmt=16, '†lvj',

pAmt=17, 'm‡Zi',

pAmt=18, 'AvVvi',

pAmt=19, 'Ewbk',

pAmt=20, 'wek',

pAmt=21, 'GKzk',

pAmt=22, 'evBk',

pAmt=23, '†ZBk',

pAmt=24, 'PweŸk',

pAmt=25, 'cwPk',

pAmt=26, 'QvweŸk',

pAmt=27, 'mvZvk',

pAmt=28, 'AvUvk',

pAmt=29, 'EbwÎk',

pAmt=30, 'wÎk',

pAmt=31, 'GKwÎk',

pAmt=32, 'ewÎk',

pAmt=33, '†ZwÎk',

pAmt=34, '†PŠwÎk',

pAmt=35, 'cuqwÎk',

pAmt=36, 'QwÎk',

pAmt=37, 'mvBwÎk',

pAmt=38, 'AvUwÎk',

pAmt=39, 'EbPwj­k',

pAmt=40, 'Pwj­k',

pAmt=41, 'GKPwj­k',

pAmt=42, 'weqvwj­k',

pAmt=43, '†ZZvwj­k',

pAmt=44, 'Pzqvwj­k',

pAmt=45, 'cuqZvwj­k',

pAmt=46, '†QPwj­k',

pAmt=47, 'mvZPwj­k',

pAmt=48, 'AvUPwj­k',

pAmt=49, 'EbcÂvk',

pAmt=50, 'cÂvk',

pAmt=51, 'GKvbœ',

pAmt=52, 'evqv‡bœv',

pAmt=53, 'wZàvbœ',

pAmt=54, 'Pzqvbœ',

pAmt=55, 'cÂvbœ',

pAmt=56, 'Qvcvbœ',

pAmt=57, 'mvZvbœ',

pAmt=58, 'AvUvbœ',

pAmt=59, 'EblvU',

pAmt=60, 'lvU',

pAmt=61, 'GKlwUª',

pAmt=62, 'evlwUª',

pAmt=63, '†ZlwUª',

pAmt=64, '†PŠlwUª',

pAmt=65, 'cqlwUª',

pAmt=66, '†QlwUª',

pAmt=67, 'mvZlwUª',

pAmt=68, 'AvUlwUª',

pAmt=69, 'EbmËi',

pAmt=70, 'mËi',

pAmt=71, 'GKvËi',

pAmt=72, 'evnvËi',

pAmt=73, 'wZqvËi',

pAmt=74, 'PzqvËi',

pAmt=75, 'cuPvËi',

pAmt=76, 'wQqvËi',

pAmt=77, 'mvZvËi',

pAmt=78, 'AvUvËi',

pAmt=79, 'EbAvwk',

pAmt=80, 'Avwk',

pAmt=81, 'GKvwk',

pAmt=82, 'weivwk',

pAmt=83, 'wZivwk',

pAmt=84, 'Pzivwk',

pAmt=85, 'cuPvwk',

pAmt=86, 'wQqvwk',

pAmt=87, 'mvZvwk',

pAmt=88, 'AvUvwk',

pAmt=89, 'EbbeŸB',

pAmt=90, 'beŸB',

pAmt=91, 'GKvbeŸB',

pAmt=92, 'weivbeŸB',

pAmt=93, 'wZivbeŸB',

pAmt=94, 'PzivbeŸB',

pAmt=95, 'cuPvbeŸB',

pAmt=96, 'wQqvbeŸB',

pAmt=97, 'mvZvbeŸB',

pAmt=98, 'AvUvbeŸB',

pAmt=99, 'wbivbeŸB')+' cqmv'

else

Inwords:='')+(' gvÎ')

//....................Script By....................//

//................Md Farukul Islam.................//

//...................01741328183...................//

[Former Member]

Hey,

I hope this formula help you it converts number into words like (121 to one hundred twenty one)

numberVar x :={Command.DocTotal}- Int ({Command.DocTotal}) ;

if  x = 0 then

    ProperCase (ToWords (Int ({Command.DocTotal}),0) + ' Only')

else

    ProperCase (ToWords (Int ({Command.DocTotal}),0) + ', and ' + ToWords ((x * 100),0) + ' Paise Only')

Thanks

Bhavesh Samant

[VamcParimisetti]

Hi Rahul,

Create a Formula in the Crystal Reports with any Name Like " In Words"

then Paste the Below Query in the Formula Editor of the Above Created Field

and Replace the {ORCT.DocTotal} Field with the Above Created Field Name Then Insert the Field in the Crystal Report then u will get the amount in Words in Indian Format.

numbervar RmVal:=0; 
numbervar Amt:=0; 
numbervar pAmt:=0; 
stringvar InWords :="Rupees "; 
Amt := ({ORCT.DocTotal});

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)

Regards,

P.V

[Former Member]

Hi P.V

I have tried this solution, but this is not displaying the proper result

i have two numbers 44.00 (before rounding it was 43.70) and 22.00 ( before rounding it was 21.85)

i want to display the result " Sixty Six Only" for (44.00+ 22.00) , but it is displaying " Rupees Sixty Five And Fifty Five Paise Only" for ( 43.70 + 21.85) ,

it is adding the two numbers before rounding and displaying in words.

kindly tell me ,how can i solve this problem

Regards

Rahul

[Former Member]

Hi

Create a formula.You can use "ToWords" function like this

numberVar x :={Command.DocTotal}- Int ({Command.DocTotal}) ;

if  x = 0 then
    ProperCase (ToWords (Int ({Command.DocTotal}),0) + ' Only')
else
    ProperCase (ToWords (Int ({Command.DocTotal}),0) + ', and ' + ToWords ((x * 100),0) + ' Paise Only')

Replace {Command.DocTotal} with your number field.

Hope this will help

Vivek

Edited by: viveksr on Sep 5, 2011 11:01 AM

[Former Member]

Hi Vivek

I have tried this solution, but this is not displaying the proper result

i have two numbers 44.00 (before rounding it was 43.70) and 22.00 ( before rounding it was 21.85)

i want to display the result " Sixty Six Only" for (44.00+ 22.00) , but it is displaying " Rupees Sixty Five And Fifty Five Paise Only" for ( 43.70 + 21.85) ,

it is adding the two numbers before rounding and displaying in words.

kindly tell me ,how can i solve this problem

Regards

Rahul

[Former Member]

Thank you for the information

[JAYAKUMAR2]

i need all countries formula in crystal report ---amount in words----