Nur Ganzzahlen oder die Nachkommazahl 5

[mIschKo]

Ich will ein Script schreiben was mit die Eingabe prüft! Und zwar sollen nur Ganzzahlen und eine nachkomma stelle 5 erlaubt sein.. wie löse ich das am besten?

 

[Bratkartoffel]

private sub cmdCheck_Click()
  dim Zahl as single
  
  Zahl=txtZahl.text

  if fix(Zahl)=Zahl or right(cstr(Zahl),2)=".5"then
    'die Zahl ist gültig
  else
   'die Zahl ist ungültig
  end if
end sub

Bin mir aber nicht sicher, konnte es nicht testen, weil ich hier kein VB6 habe.

 

[mIschKo]

private sub cmdCheck_Click()
  dim Zahl as single
  
  Zahl=txtZahl.text

  if fix(Zahl)=Zahl or right(cstr(Zahl),2)=".5"then
    'die Zahl ist gültig
  else
   'die Zahl ist ungültig
  end if
end sub

Bin mir aber nicht sicher, konnte es nicht testen, weil ich hier kein VB6 habe.

Woher nimmst du die txtZahl.text ? Das soll doch meine zahl sein die ich überprüfen will oder nicht ? Welches objekt ist den das text?

ALLES BESTENS HABE ES ES JETZT HINGEKRIEGT DANKE!