Converts the Currency to Text. For Ex: 100.90 is converted as one hundred dollars and ninety cents only.
Original Author: Dasari. Ravi Kumar(r&d teamworks)
Assumptions
Insert a formula field in crystal reports and Paste the Code and replace the
currencyfield in the code with any reportfield whose datatype is currency or
Integer.
Returns
String
Code
if right(totext({currencyfield}),2) = '00' then
uppercase(left(towords(truncate({currencyfield}),0)+' ' +'dollars'+' '+ 'only',1)) + right(towords(truncate({currencyfield}),0)+' ' +'dollars' + ' ' + 'only',length(towords(truncate({currencyfield}),0)+' ' + 'dollars' +' '+ 'only') -1)
else
towords(truncate({currencyfield}),0) +' '+'dollars'+' '+ 'and'+' ' +towords(tonumber(right(TOTEXT({currencyfield}),2)),0)+' '+'cents'+ ' ' + 'only'