Anyone have this bomb too?
Code:
#COMPILE EXE #DIM ALL FUNCTION Is_Numeric(BYVAL A$) AS LONG LOCAL NUMERIC AS LONG NUMERIC=IIF(VERIFY(A$,"01234567890")>0,0,-1) FUNCTION=NUMERIC END FUNCTION FUNCTION PBMAIN () AS LONG ? "IS 123 a numeric ?==>"+Str$(Is_Numeric("123")) 'Should return -1 END FUNCTION
Comment