Coddy — Tue, 15 Feb 2000 15:12:00 +0000

FANTASTIC!!!

Thanx very very much!!!!

Nick

Eugene Grinberg — Mon, 14 Feb 2000 19:29:00 +0000

There is a 'formatCurrency' function in ASP which would convert 1000000 to $1,000,000.00

All you need to do is to change ',' to '.'

This can be done using the following:

Function ToCurrency2(pAmount)

ToCurrency2 = Replace(FormatCurrency(pAmount), ",", ".")

End Function

This is a definitely easier algorithm.
I hope this helped you.

Eugene Grinberg http://www.interprosolution.com
FREE Tools and Services for Webmasters

Coddy — Mon, 14 Feb 2000 05:17:00 +0000

Thanks Eugene!
If it's not a trouble, can you describe the first method?(Using FormatDate- change , with a .)

Thanx a lot!!!

Coddy

Eugene Grinberg — Sun, 13 Feb 2000 07:16:00 +0000

Suppose a user entered 1234567.89 and you need to convert it to $1.234.567.89

First Method:
You could use a 'formatCurrency' function to covert it to $1,234,567.89 and then replace all commas with a '.'

Second Method:
You can implement the following algorithm (I tested it and had no problems with it, but if you find one, be sure to tell me, and I'll fix it):

Function ToCurrency(pAmount)
Dim vTemp, vCurrency, i, vOffset

vTemp = CStr(Fix(CDbl(pAmount)))

vOffset = Len(vTemp) - Fix(Len(vTemp) / 3) * 3

For i = 0 To Round(Len(vTemp) / 3)
If i = 0 Then
vCurrency = Left(vTemp, vOffset)
End If

If i <> Round(Len(vTemp) / 3) Then
If Len(vCurrency) <> 0 Then
vCurrency = vCurrency & "."
End If

vCurrency = vCurrency & Mid(vTemp, 1 + vOffset + i * 3, 3)
End If
Next

If Len(vTemp) < Len(pAmount) Then
vCurrency = vCurrency & Right(pAmount, Len(pAmount) - Len(vTemp))
End If

vCurrency = "$" & vCurrency

ToCurrency = vCurrency
End Function

Eugene Grinberg
http://www.interprosolution.com
FREE Tools & Services for Webmasters

[This message has been edited by Eugene Grinberg (edited 13 February 2000).]

Coddy — Thu, 10 Feb 2000 14:51:00 +0000

Eugene,
Can you give me an example?

Thanx a lot

Coddy

Eugene Grinberg — Thu, 10 Feb 2000 03:42:00 +0000

You can do the parsing with ASP. Check the following, if the number is greater then 999, put a '.' in front of the last three digits, and so on. The parsing should be pretty straightforward.

Eugene Grinberg http://www.interprosolution.com
FREE Tools & Services for Webmasters

Vincent Puglia — Tue, 01 Feb 2000 02:43:00 +0000

Not sure if it's what you want, but I have some masking routines at my site (along with explanations) I also have a currency formatting script ($1,999,999.99)

Vinny GrassBlade: cut&paste javascript