VBA kode til 2 decimaler

Prøv med denne:

If and(IsNumeric(txtTimer.Text) = False,Len(Split(txtTimer.Text & ",", ",")(1)) >2)Then
        MsgBox "Timer/dage ikke indtastet korrekt"
        txtTimer.SetFocus
        Exit Sub
End If

Kan du bruge denne

Function antaldec(c)
    If IsNumeric(c) Then
        Dim d As Double
        d = CDbl(c)
        If InStr(1, CStr(d), ",") = 0 Then
            antaldec = 0
        Else
            antaldec = Len(CStr(d)) - InStr(1, CStr(d), ",")
        End If
    End If
End Function

jens 48 - der kommer desværre en compile error - syntex error

Hej Thor

Tak jeg bruger nok di forslag forkert, for jeg får også en syntx error. Se nederst af det jeg har kopieret ind, hvad er forkert?


If IsDate(txtDato.Text) Then
        txtDato.Text = Format(CDate(txtDato.Text), "dd-mm-yyyy")
        dato = txtDato
    Else
        MsgBox "Datoformat skal være dd-mm-yyyy"
        txtDato.SetFocus
        Exit Sub
End If

If lstType = "" Then
    MsgBox "Type ikke udfyldt korrekt"
    lstType.SetFocus
    Exit Sub
End If

Function antaldec(txtTimer.Text)
    If IsNumeric(txtTimer.Text) Then
        Dim d As Double
        d = CDbl(txtTimer.Text)
        If InStr(1, CStr(d), ",") = 0 Then
            antaldec = 0
        Else
            antaldec = Len(CStr(d)) - InStr(1, CStr(d), ",")
        End If
    End If
End Function

Ja, jeg fik skrevet den lidt forkert. Prøv denne:

If IsNumeric(txtTimer.Text) = False or Len(Split(txtTimer.Text & ",", ",")(1)) >2 then
        MsgBox "Timer/dage ikke indtastet korrekt"
        txtTimer.SetFocus
        Exit Sub
End If

Men skal der indtastes som hh:mm (13:45)
eller
som decimal-tal (12,5 = 12:30) ?

Hej Jens

Super det virker fint - tak for hjælpen :-) Smider du et svar

Du får et svar