|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Currency to text Conversion
' Description:Converts the Currency to T
' ext. For Ex: 100.90 is converted as one
' hundred dollars and ninety cents only.
' By: Dasari. Ravi Kumar(r&d; teamworks)
'
' Returns:String
'
' Assumes:Insert a formula field in crys
' tal reports and Paste the Code and repla
' ce the
currencyfield In the code With any reportfield whose datatype is currency or
Integer.
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=4804&lngWId;=1'for details.'**************************************
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'
| |
Other 2 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
12/9/1999 1:17:00 AM:Rony
It Works Amazingly and I feel it
is
100% original. Keep It up.
|
12/9/1999 1:20:00 AM:Sam
It Works Nicely. I think it is a
enhancement of Towords function of
reports.Good work.
|
12/9/1999 1:29:00 AM:Anil
ur code works out to be fantastic...
|
12/9/1999 1:32:00 AM:shanker
this function is I think first of its
kind extending towords function.
|
12/9/1999 2:20:00 AM:Simren
I find your code absolutely working.
I
desperately needed a function in
reports
to convert the currency to
text.
Thanx Man
|
12/9/1999 2:22:00 AM:Eric
Not Bad.
|
12/9/1999 2:25:00 AM:Author
I am extremely greatful to the
Planet
Source code for giving me a chance to
submit my own code.Some more
functions
are yet to come.
|
12/10/1999 9:05:00 AM:Mohit
Nice function.
This functionality is
provided by a built in function in
Crystal Reports- with something like
curTotext operator.
|
12/12/1999 11:39:12 PM:James
Pretty Useful in reports. i hope u will
develop a function in vb also
|
12/12/1999 11:47:01 PM:Guna
Good formula. Iused in making
Payrolls.
Thanks
|
12/13/1999 12:11:50 AM:Gibbs
nice formula...
|
12/13/1999 12:19:13 AM:siler
rk ur formula is not bad....
|
1/2/2000 3:08:54 PM:Gohar
Q. How can I print from date to
to
date using Crystal report?
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
