---
title: "IIF problem och Currency Problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/108441-iif-problem-och-currency-problem"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Fraggel"
published: "2004-08-03T16:23:24.000Z"
updated: "2004-08-03T18:18:27.000Z"
replies: 2
views: 274
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/dotnet/108441-iif-problem-och-currency-problem"
---

# IIF problem och Currency Problem

## #1 — Fraggel, 2004-08-03T16:23Z

```
Private Sub cmdAdd_Click()
    Dim curPriceIn As Currency
    Dim curPriceOut As Currency
    Dim strItem As String
    Dim intNbrOfItems As Integer
    Dim intTmp As Integer
    ' Ersätter . (punkt) med , (komma) om användare gör fel vid inmatning
    txtItem.Text = Trim(txtItem.Text)
    txtPriceIn = Replace(txtPriceIn.Text, ".", ",")
    txtPriceOut = Replace(txtPriceOut.Text, ".", ",")
    curPriceIn = IIf(IsNumeric(txtPriceOut.Text), CCur(txtPriceIn.Text), CCur(0))
    curPriceOut = IIf(IsNumeric(txtPriceOut.Text), CCur(txtPriceOut.Text), CCur(0))
    MsgBox (curPriceIn & " " & curPriceOut)
End Sub
```

Allt funkar så längen IsNumeric(txtPriceOut.Text) och IsNumeric(txtPriceIn.Text) är sannt, skulle det smyga sig in ett ikke Numreriskt värde i det hela så får jag fel meddelanden.
Runtime Error 13
Type Mismatch

Vad i helvet är det som är FEEEEEL

har testat med olika varianter i False alternativet på IIF, tex med CCur("0,0") och lite andra varianter

Sedna så skulle jag vilja veta hur jag löser problemet med Decimaler i Currency värdet, jag vill skriva ut det på skärmen, men är det hela tiotal i decimalerna och eller heltal så skrivs det ut 10,1 eller 10 man jag vill att det skall skrivas som 10,10 och eller 10,00 i dom fallen det inträffar vilket är oftast...

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

## #2 — @nders, 2004-08-03T17:45Z

Du kan kontrollera att ett värde är numeriskt med funktionen IsNumeric().

Du kan använda Format() för att formatera värdet till två decimaler.

mvh

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

## #3 — Fraggel, 2004-08-03T18:18Z

```
Private Sub cmdConvert_Click()
  Dim curMyCurrency As Currency
  txtIsCurrency.Text = Replace(txtIsCurrency.Text, ".", ",")
  txtIsCurrency.Text = IIf(IsNumeric(txtIsCurrency.Text), txtIsCurrency.Text, "0,0")
  curMyCurrency = CCur(txtIsCurrency.Text)
  lblCurrency.Caption = Format(curMyCurrency, "Currency")
End Sub
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafmtnamednumericformats.asp
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctFormat.asp
```

Löste ALLA mina problem... Just nu ialla fall

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/108441-iif-problem-och-currency-problem