Wie sieht eine strukturelle ganzzahlprüfung aus?

0 ⤊

Wie sieht eine strukturelle ganzzahlprüfung aus?

2006-08-10 02:54:42 · 1 antworten · gefragt von Anonymous in Computer & Internet ➔ Programmierung & Design

1 antworten

Public Function istganzZahl(vVal) As Boolean
Dim kommastelle As Integer
istganzZahl = True
kommastelle = InStr(Nz(vVal, ""), ",")
If kommastelle = 0 Then kommastelle = InStr(Nz(vVal, ""), ".") 'us-notation versuchen ob ein "." zu finden ist
If kommastelle > 0 And CDbl(Mid(vVal, kommastelle + 1)) <> 0 Then istganzZahl = False

End Function

2006-08-10 03:04:04 · answer #1 · answered by ??! 6 · 0⤊ 0⤋