Formatting numbers as currency - Page 4

The Steps: cont.

Step 6: Now we need to deal with the afterPrice, since it's separate from the rest of the figure. Let's check the length:

   Comment: ===================
   Comment: format cents
   Set Variable: "/:afterPriceLen" = MBLength(/:afterPrice)

Step 7: If afterPrice's length = nothing, that means that we have a number like 10, so we want to add a 00 to it:

   If (/:afterPriceLen = "" or /:afterPriceLen = 0)
   	Set Variable: "/:afterPrice" = "00"

Step 8: If afterPrice is 1 digit, then we know we need to tack a zero onto it:

   Else If (/:afterPriceLen = 1)
   	Set Variable: "/:afterPrice" = /:afterPrice & "0"

Step 9: Now it gets really fun - what happens if our sum is longer than 2, such as 10.5356? We'll have to chop the afterPrice off at 2, being sure to round up if it needs to be rounded:

   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

Step 10: Finally! We put together all of our pieces and add a nice "$" and a ".":

   Set Variable: "/:displayPrice" = "$" & /:beforePrice    & "."& /:afterPrice