PDA

Vollständige Version anzeigen : Ist die erste Zahl 0 ?


md
11.07.2001, 13:16
Hallo Forum!

Wie kann ich prüfen, ob die erste Zahl in einer String-Variablen 0 ist ?

Danke fürs Helfen,

Euer MD

Morli
11.07.2001, 13:39
Hallo md,

If Left(Stringvariable,1) = "0" Then
blablabla
Endif

sollte dir helfen.

Gruß
Rainer ;)

md
11.07.2001, 13:44
Hallo Morli!
Vielleicht nicht genau genug beschrieben
Es geht nicht um das erste Zeichen, sondern um die erste Zahl:

String:
"xyz6789": erste Zahl ist "6"
" &5d": erste Zahl ist "5"

Wie geht das??

Danke

MD

Morli
11.07.2001, 14:24
Hallo md,

probiers mal hiermit:


Public Function NullZuerst(ByVal Quelle As String) As String
Dim i As Byte
Dim Nullwert, Kleinstwert, stelle As Long


Kleinstwert = Len(Quelle)

Nullwert = InStr(1, Quelle, "0")

If Nullwert = 0 Then
MsgBox "0 ist nicht vorhanden"
Else
For i = 1 To 9
stelle = InStr(1, Quelle, CStr(i))
If stelle > 0 Then
If stelle < Kleinstwert Then
Kleinstwert = stelle
End If
End If
Next
End If

If Nullwert < Kleinstwert Then
NullZuerst = MsgBox("Die 0 steht als erste Zahl an Stelle " & Nullwert, vbInformation)
End If


End Function

Sub test()
Call NullZuerst("abcn0ad1")
End Sub


Gruß

Rainer ;)