Konvertering af tekststreng til nummer.

Val(beløb)

Jeg har prøvet ..  Val (MyCurQuote)    ... men det virker af en eller anden årsag ikke. Du løser heller ikke mit problem med at strengen er af varierende størrelse.

hvad med CSng(beløb)?

det virker fint hos mig med begge.

Det er i VB, du bruger det, ikke?

Hvis det er komma/punktum-problemet, så kan du erstatte punktumet med komme vha:

CSng(Replace(MyCurQuote, ".", ","))

Hej.

Er det er VBA-sag?  I VB fungerer:

Private Sub Command1_Click()
  Text2.Text = 2 * Val(Text1.Text)
End Sub

uanset varierende antal cifre før og efter decimaltegnet, som SKAL være punktum.

m.v.h.  Jørn

Hej Thomas.

Tak for dit svar. Det var det der var problemet. Jeg kendte ikke Replace og den findes heller ikke i min gamle VB ??

Henrik

Hej Jørn.

Den forstår jeg ikke ...

Henrik

ok, jeg har en gammel Replace-funktion, som jeg skrev til de ældre versioner af Office og vb:

Public Function mieReplace(Streng As String, Find As String, Erstat As String) As String
    On Error Resume Next
    Dim pos As Integer, findpos As Integer
    Dim tmpStr As String
    pos = 1
    If Len(Streng) = 0 Then
      mieReplace = Streng
      Exit Function
    End If
    tmpStr = Streng
    Do
        findpos = InStr(pos, tmpStr, Find)
        If findpos <> 0 Then
            tmpStr = Left(tmpStr, findpos - 1) & Erstat & Mid(tmpStr, findpos + Len(Find))
            pos = pos
        Else
            pos = pos + 1
        End If
    Loop Until pos = Len(Streng)
    If Err Then
      mieReplace = Streng
    Else
      mieReplace = tmpStr
  End If
End Function


Den fungere på samme måde, men du skal bare kalde mieReplace i stedet (mie=Make It Easy :)

thnx :o)