复制代码代码如下所示:
函数:空值测试
功能因苏尔(Val)
昏暗的TMP
TMP = false
如果IsNull(Val)然后
TMP =真
ElseIf IsEmpty(Val)然后
TMP =真
修剪(Val)= 然后
TMP =真
最后如果
因苏尔= TMP
端功能


测试变量是否为空值,空值的含义包括:变量不存在/空为空,对象为空,空数组为0,字符串为空。
函数为(ByRef Var)
为= false
选择案例的真实
案例采用(VAR)
如果Var没有再为=真
Case IsEmpty(VAR)、IsNull(VAR)
为=真
Case IsArray(VAR)
如果UBound(VAR)= 0则为=真
案例ISNUMERIC(VAR)
如果(var = 0)然后为=真
其他案件
如果修剪(VAR)= 然后为=真
最后选择
端功能