Skip to main content
Question

Is it possible to turn number format to letter format in a report


Forum|alt.badge.img

Is it possible to turn number format to letter format in a report

E.G: 100 
I need like this → One Hundred 

3 replies

Forum|alt.badge.img+1
  • Jr Varsity III
  • 69 replies
  • March 12, 2025

Hi ​@rashmikamudalinayake10 , Hope, this link helps you Convert Amount to words

 


Forum|alt.badge.img

This was my approach:

1.Declare Variables as below

AmountCents     =CInt([ DATAFIELD HERE ]*100)
AmtThousands   =Floor($AmountCents/100000)
AmtHundreds     =Floor(($AmountCents-$AmtThousands*100000)/10000)
AmtTens             =Floor(($AmountCents-$AmtThousands*100000-$AmtHundreds*10000)/1000)
AmtOnes        =Floor(($AmountCents-$AmtThousands*100000-$AmtHundreds*10000-$AmtTens*1000)/100)
AmtCents           =CInt(Right(CStr($AmountCents),2))

 

2.Data field Code

=Iif($AmtThousands<>0,Switch($AmtThousands=10,'Ten',$AmtThousands=9,'Nine',$AmtThousands=8,'Eight',$AmtThousands=7,'Seven',$AmtThousands=6,'Six',$AmtThousands=5,'Five',$AmtThousands=4,'Four',$AmtThousands=3,'Three',$AmtThousands=2,'Two',$AmtThousands=1,'One') + ' Thousand ','') + Iif($AmtHundreds<>0,Switch($AmtHundreds=9,'Nine',$AmtHundreds=8,'Eight',$AmtHundreds=7,'Seven',$AmtHundreds=6,'Six',$AmtHundreds=5,'Five',$AmtHundreds=4,'Four',$AmtHundreds=3,'Three',$AmtHundreds=2,'Two',$AmtHundreds=1,'One') + ' Hundred ','') + Iif($AmtTens<>0,Switch($AmtTens=9,'Ninety',$AmtTens=8,'Eighty',$AmtTens=7,'Seventy',$AmtTens=6,'Sixty',$AmtTens=5,'Fifty',$AmtTens=4,'Forty',$AmtTens=3,'Thirty',$AmtTens=2,'Twenty',$AmtTens=1,'') + '','') + Iif($AmtTens=1,Switch($AmtOnes=9,'Nineteen',$AmtOnes=8,'Eighteen',$AmtOnes=7,'Seventeen',$AmtOnes=6,'Sixteen',$AmtOnes=5,'Fifteen',$AmtOnes=4,'Fourteen',$AmtOnes=3,'Thirteen',$AmtOnes=2,'Twelve',$AmtOnes=1,'Eleven',$AmtOnes=0,'Ten') + '','') + Iif($AmtTens<>1,Switch($AmtOnes=9,'Nine',$AmtOnes=8,'Eight',$AmtOnes=7,'Seven',$AmtOnes=6,'Six',$AmtOnes=5,'Five',$AmtOnes=4,'Four',$AmtOnes=3,'Three',$AmtOnes=2,'Two',$AmtOnes=1,'One',$AmtOnes=0,''),'') + Iif($AmountCents=$AmtCents,'Zero','') + Iif($AmtCents=0,' Only',' and ' + CStr($AmtCents) + '¢ Only')

The max is 10,999.99. But I was unable to go further to Millions.
Any one?


Forum|alt.badge.img+1
  • Jr Varsity III
  • 69 replies
  • March 14, 2025

Reply


Cookie policy

We use cookies to enhance and personalize your experience. If you accept you agree to our full cookie policy. Learn more about our cookies.

 
Cookie settings