VFP中的检验其只为数字的函数

在VFP中没有判断整个字符表达式是否数字的函数，只有判断字符表达式的最左边一个字符是否为数字的函数ISDIGIT()。但是可以写个自定义函数来判断是否为数字。

isdigit()函数详细介绍如下：

语法：ISDIGIT(cExpression)

参数：cExpression
指定 isdigit( ) 函数要判断的字符表达式。cExpression 中第一个字符之后的所有字符都被忽略。

返回值类型：逻辑型

说明：如果字符表达式的最左边一个字符是数字(0 到 9)，则 ISDIGIT( ) 函数返回“真”(.T.)；否则，isdigit( ) 函数返回“假”(.F.)。

...

谁说没有函数?
aa=1
?type("aa")
aa='1'
?type("aa")