******************** ‘函数作用:根据条件真假返回选定值中的某个 ‘参数:blnCondition:条件变量,varResultTrue:条件为真时返回值,varResultFalse:条件为假时返回值 Function IIF(blnCondition, varResultTrue,varResultFalse) If CBool(blnCondition) Then IIF = varResultTrue Else IIF = varResultFalse End If End Function ‘***************