IIF problem och Currency Problem

2 svar · 274 visningar · startad av Fraggel 3 aug. 2004

FraggelMedlem sedan sep. 2003301 inlägg

Trådstart3 aug. 2004 16:23#1

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

@ndersMedlem sedan juni 200032 967 inlägg

3 aug. 2004 17:45#2

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

FraggelMedlem sedan sep. 2003301 inlägg

3 aug. 2004 18:18#3

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