逻辑与的复合条件

最新推荐文章于 2020-08-16 23:45:08 发布

weixin_30586257

最新推荐文章于 2020-08-16 23:45:08 发布

阅读量143

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zenple/p/4596541.html

本文讨论了函数返回值作为数字时如何代表不同情况，并详细解释了如何通过二进制规则递增来确保唯一性。同时，文章提供了一个用于验证正数有效性的函数，包括检查数字是否存在、是否为字符、是否为负数以及是否为零。

函数返回值是数字，一个数字可能代表一个Case，也可以代表多个Case组合。返回值规则如下：

条件	十进制数	二进制数
Case1	1	1
Case2	2	10
Case3	4	100
Case4	8	1000
Case5	16	10000

返回值之所以参照二进制数规则递增，因为无论满足其中多少个条件，其相加总和都能保证唯一性。

'检查正数有效性
Dim i
i = fnCheck(iNum)
If Not i = 0 Then
	If (i And 1) = 1 Then
		'Null
	End If
	If (i And 2) = 2 Then
		'非数字(字符)
	End If
	If (i And 4) = 4 Then
		'负数
	End If
	If (i And 8) = 8 Then
		'零
	End If
End If


'判断数字是否为正数
'返回值:0-正常,1-Null,2-非数字(字符),4-负数,8-零
Function fnCheck(iNum)
	fnCheck = 0
	If IsNull(iNum) Then
		fnCheck = fnCheck + 1
	End If
	If Not IsNumeric(iNum) Then
		fnCheck = fnCheck + 2
	End If
	If iNum < 0 Then
		fnCheck = fnCheck + 4
	End If
	If iNum = 0 Then
		fnCheck = fnCheck + 8
	End If
End Function

转载于:https://www.cnblogs.com/zenple/p/4596541.html