Ne IS-Numeric Funktion
30.12.2003 13:50:01
Benni
bin gerade dabei für meine schule nen autovermietprogramm zu programmieren
ich hab nur die funktion für is numeric vergessen...
komme net so richtig weiter. hab schon verschiedene kombinationen versucht.
Private Sub cmd_berechnen_Click()
Dim StrTage As Double
Dim StrKilometer As Double
Dim dblTresult As Double
Dim dblKresult As Double
Dim dblResult As Double
Dim dblanTage As Double
Dim dblanKilometer As Double
StrTage = InputBox("Wieviele Tage soll das Auto gemietet werden?")
If StrTage Is numeric Then
Else
StrKilometer = InputBox("Wieviele Kilometer wird der Kunde in diesem Zeitraum schätzungsweise zurücklegen?")
dblTresult = StrTage * StrFTpauschale
dblKresult = StrKilometer * StrFKpauschale
dblResult = dblKresult + dblTresult
txt_angebot = dblResult
End Sub
so ca. soll der sub aussehen, nur ich komme halt oben mit dem is-numeric fehler net weiter. es würde mir auch reichen, wenn jemand mir eine "on error GoTo"-verknüpfung schicken könnte die funktioniert... wäre echt nett, wenn mir wer helfe könnte. danke im voraus :) - benni