FLASH: Currency Formatting

[Brouwers, P.]

TRy this

Input: amount

Output: x


Set Variable: "x" = amount

Set Variable: "centen" = int(Eval(x)*100+0.5)

Comment: convert to cents


If (centen < 10)

      Set Variable: x = "f 0,0" & centen

Else If (cents < 100)

      Set Variable: x = "f 0," & centen

Else

	Set Variable: x = "f " & Substring(centen, 1, Length(centen)-2) &

"," & Substring(centen, Length(centen)-2, 2)

End If

Set Variable: "centen" = ""


Peter


flasher is generously supported by...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     flashforward2000 and the Flash(tm) Film Festival

 July 24-26, 2000, NEW YORK CITY, Hammerstein Ballroom

                  www.flashforward2000.com

   Produced by United Digital Artists and lynda.com

 Sponsored by Macromedia, Adobe Systems, Fusion, Inc, AtomFilms,

           shockwave.com and Electric Rain.

 1.877.4.FLASH.4  or (1.805.640.6679 outside the US and Canada)

 Register before June 30 and save $200!!-- www.flashforward2000.com

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

To unsubscribe or change your list settings go to

http://www.chinwag.com/flasher or email

helpchinwag [dot] com