---
title: "Konventera valuta"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74222-konventera-valuta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fundrusse"
published: "2003-04-16T08:20:34.000Z"
updated: "2003-04-16T09:20:09.000Z"
replies: 4
views: 311
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/74222-konventera-valuta"
---

# Konventera valuta

## #1 — fundrusse, 2003-04-16T08:20Z

Finns det någon funktion som konventera valuta ex.

1 = 100
1\.50 = 150
1\.5 = 150
1\.55 = 155

Dvs att det skall skrivas ut i öre

Permalänk: https://www.webforum.nu/p/74222

## #2 — fundrusse, 2003-04-16T08:28Z

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
```

Permalänk: https://www.webforum.nu/p/1014680

## #3 — fundrusse, 2003-04-16T08:33Z

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

Permalänk: https://www.webforum.nu/p/1014682

## #4 — fundrusse, 2003-04-16T08:47Z

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 ;)

Permalänk: https://www.webforum.nu/p/1014690

## #5 — @nders, 2003-04-16T09:20Z

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,

Permalänk: https://www.webforum.nu/p/1014711

---

Tråden på webben: https://www.webforum.nu/amne/asp/74222-konventera-valuta