Konventera valuta

Hmm är detta ett korrekt sätt att göra det på?

 Function Price(Str)
 If Instr(Str,".") Then
  If Len(Right(Test,Len(Test)-InstrRev(Test,"."))) = 0 Then
   Str = Str &"00"
  ElseIf Len(Right(Test,Len(Test)-InstrRev(Test,"."))) = 1 Then
   Str = Str &"0"
  End If
 Else
  Str = Str &"00"
 End If
 Price = Replace(Str, ".", "")
 End Function

Oj det skall givetvis inte stå Test utan "Str"

Löste det på detta sätt:

 Function Price(Str)
 If Instr(Str,",") Then
  Com = Len(Right(Str,Len(Str)-InstrRev(Str,",")))
 ElseIf Instr(Str,".") Then
  Com = Len(Right(Str,Len(Str)-InstrRev(Str,".")))
 End If

 If Com = 0 Then
  Str = Str &"00"
 ElseIf Com = 1 Then
  Str = Str &"0"
 ElseIf Com > 2 Then
  NewCom = Com-2
  Str = Left(Str, Len(Str)-NewCom)
 End If

 Str = Replace(Str, ",", "")
 Price = Replace(Str, ".", "")
 End Function

Men finns det färdig funktion så säg till ;)

Rätta mig om jag har fel, men är det inte bara att multiplicera antal kronor med 100 för att få det i antal ören?

function myConvert (dblMoney)
     myConvert = dblMoney * 100
end function

Response.write myConvert (90.25)

Se till att du skickar in en variabel som är av rätt subtyp bara.

Mvh,