Featured Flash FLA 11303 Flash Movies | 7 New Flash Movies Added What's New | Top 100 Featured FLA » Author: Nitin Tikhe » Title: Cart » Description: This Animation Tut is a fun and useful for kids below 15 years. Watch the Flag, Doors, Stick and Horse movements. » More by Nitin Tikhe Random FLAs | Add Flash Movie Featured Flash Site 6008 Flash Sites | 0 New Flash Links What's New | Top 100 Flash Site Featured Site » Posted in the Flash Kit Links section » Title: Banana Swimwear » Description: This is a banana swim wear interactive catalog we designed and animated in Flash Random Links | Add your own Flash Related Links

1255 Tutorials 7 New Tutorials Added! What's New | Top100 » Make flash video player for broadcasting live streaming video / TV on website » How to convert the project file of Flash Demo Builder 2.0 into FLV file » FLV to PSP for Mac - How to convert YouTube video to PSP on mac » How to Convert FLV to MP4 for Playback on iPod » how to download and convert youtube video to AVI with Leawo Free FLV converter » Flash Multi-player Game Tutorial - TicTacToe » How to make Flash elearning tutorials with screen recorder? » Fader API:Slideshow with MovieClips on stage » How to convert MS PPT file into an FLV File » Unknown Tag: Title10 Random Tutorial | Add Site

Network Design Manager The Computer Merchant, Ltd US-VA-Hampton Post A Job | Post A Resume

Tutorials Home What's New Top Rated Submit myTutes Random!

Tutorials » Actionscripting

Formatting numbers as currency
Author: Katharine Brown | Website: http://www.greenbug.com/ |

The bulk of the script is attached to the "input price" button, but it can be transferred to a frame action as well.

The full text conversion script:

   Set Variable: "/:priceLength" = MBLength(/:price)
 Set Variable: "/:n" = "0"
 Loop While (/:n < /:priceLength)
 Set Variable: "/:n" = /:n + 1
 Set Variable: "/:currentChar" = MBSubstring ( /:price, /:n, 1 )
 If (/:currentChar ne "." and /:donePre ne "yes")
 Set Variable: "/:beforePrice" = /:beforePrice & /:currentChar
 Else If (/:currentChar eq ".")
 Set Variable: "/:donePre" = "yes"
 Else
 Set Variable: "/:afterPrice" = /:afterPrice & /:currentChar
 End If
 End Loop
 Comment: ===================
 Comment: format dollars (pounds, whatever)
 If (/:beforePrice eq "" or /:beforePrice eq ".")
 Set Variable: "/:beforePrice" = "0"
 End If
 Comment: ===================
 Comment: format cents
 Set Variable: "/:afterPriceLen" = MBLength(/:afterPrice)
 If (/:afterPriceLen = "" or /:afterPriceLen = 0)
 Set Variable: "/:afterPrice" = "00"
 Else If (/:afterPriceLen = 1)
 Set Variable: "/:afterPrice" = /:afterPrice & "0"
 Else
 Comment: round up if the decimal warrants it
 If (MBSubstring ( /:afterPrice, 3, 1 ) > 4)
 Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
 Set Variable: "/:afterPrice" = /:afterPrice + 1
 Else
 Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
 End If
 End If
 Set Variable: "/:displayPrice" = "$" & /:beforePrice    & "."& /:afterPrice
 Go to and Stop ("done")

» Forums
	More help? Search our boards for quick answers!

Please rate this tutorial, 10 is the top rating, you can also click the comments link to read/write a review.

10 9 8 7 6 5 4 3 2 1