根据VBscript的数据类型定义,结合利用VarType函数,构造以下自动处理函数InitdataType,
输入两个参数,要处理数据本身(theDate)和准备输出的数据类型(theReturnType,整数型): theReturnType强制返回的数据类型 ,同VarType返回值定义的意义一样, 'theReturnType 如果忽略: 返回同theDate一样的数据类型.
比较常见的NULL返回,对于字符串型返回空字符串,对各种于数值返回0值,对于逻辑值返回FALSE(假),对于日期
返回最早的日期
函数程序:
Function InitdataType(theDate,theReturnType)
'返回或强制指示变量子类型的值。theDate 参数可以是任何变量。
'theReturnType(整数型): 强制返回的数据类型 ,同VarType返回值定义的意义一样
'theReturnType 如果忽略: 返回同theDate一样的数据类型.
'下面引用的函数VarType(varname)会返回指示变量子类型的值。,varname 参数可以是任何变量。
'VarType函数返回值的意义如下:
'vbEmpty 0 Empty(未初始化)
'vbNull 1 Null(无有效数据)
'vbInteger 2 整数
'vbLon