Forgot to ask about final format ? two decimals ?
Add one line at the end to handle this 'if there are no decimals'
On 11/16/06 2:00 PM, "Jim Ault" <[EMAIL PROTECTED]> wrote:
> --takes advantage of Rev parsing
> --does not handle negative numbers
>> function fNumericToMoney
> put param(1) into tParam
> set itemdel to "."
> put item 1 of tParam into newNum
> set the lineDel to ","
> repeat until char 1 of newNum is ","
> put "," before char -3 of line 1 of newNum
> end repeat
> put "$" into char 1 of newNum
if item 2 of tParam is not empty
then put "." & item 2 of tParam after newNum
> return newNum
>> end fNumericToMoney
>
> --after this handler finishes, the itemDel and lineDel expire, since these
> only apply to the active handler when set.
Jim Ault
Las Vegas
>
> On 11/16/06 1: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
>>
>
>
> _______________________________________________
> 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
_______________________________________________
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
