Formatting numbers as currency - Page 3

The Steps:

Let's assume that you have a dollar amount stored in a variable called "price".

Step 1: Figure out how many characters (including the decimal point) are in your price:

 Set Variable: "/:priceLength" = MBLength(/:price) 

Step 2: Now you're going to loop through each character in price and check what it is:

   Set Variable: "/:n" = "0"
   Loop While (/:n < /:priceLength)
   	Set Variable: "/:n" = /:n + 1
   	Set Variable: "/:currentChar" = MBSubstring ( /:price, /:n, 1 ) 

Step 3: Then you're going to act based on what character it is you're dealing with. You'll create two variables: -

1. beforePrice, which is the first chunk of your price (before the decimal point) - in other words, dollars
2. afterPrice, which is the amount of cents (or nothing "")

   	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

Step 4: And once we've reached the end of the length of the price, we're done:

   End Loop

Step 5: Let's format the dollars. We don't really need to do anything, but if there are no dollars, let's make it a zero.

   Comment: ===================
   Comment: format dollars (pounds, whatever)
   If (/:beforePrice eq "" or /:beforePrice eq ".")
   	Set Variable: "/:beforePrice" = "0"
   End If