On 11/16/06 3:01 PM, "Hershel Fisch" <[EMAIL PROTECTED]> wrote:
> Hi all, I'd like to know how others write a function like this.
> TIA Hershel
>
> function fNumericToMoney
> put param(1) into tParam
> if tParam contains "." then
> put offSet(".",tParam)-1 into tTs
> put 3 into tC
> else
> put the number of chars in tParam into tTs
> put 0 into tC
> end if
> repeat while tTs >3
> add 3 tC
> put "," before char -tC in tParam
> add 1 to tC
> subtract 3 from tTs
> end repeat
> return "$" & tParam
> end fNumericToMoney
Here's mine:
function stsConvertToDollars pAmt
split pAmt by "." -- pAmt[1] is the dollars, pAmt[2] is the cents
if pAmt[2] = "" then put "00" into pAmt[2]
if length(pAmt[2]) = 1 then put "0" after pAmt[2]
put trunc(length(pAmt[1])/3) into tNumLoops
put "" into tDollars
repeat tNumLoops
put "," & char -3 to -1 of pAmt[1] before tDollars
delete char -3 to -1 of pAmt[1]
end repeat
put pAmt[1] & tDollars & "." & pAmt[2] into tRetVal
if char 1 of tRetVal = "," then delete char 1 of tRetVal
return "$" & tRetVal
end stsConvertToDollars
Basically the same repeat loop but slightly different in parsing...
Ken Ray
Sons of Thunder Software, Inc.
Web site: http://www.sonsothunder.com/
Email: [EMAIL PROTECTED]
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
