46、VB/VBA函数与语句全面解析

VB/VBA函数与语句全面解析

在VB/VBA编程中，有许多实用的函数和语句，下面将为大家详细介绍其中一些重要的内容。

1. Sgn函数

Sgn函数用于确定一个数字的符号。其语法为 Sgn(number) ，其中 number 是必需的数值表达式，返回值是一个子类型为Integer的Variant。

该函数的返回值根据 number 的符号而定：
| number 情况 | Sgn 返回值 |
| ---- | ---- |
| 正数 | 1 |
| 零 | 0 |
| 负数 | -1 |

编程提示：
- 有人可能会觉得Sgn函数的用处不大，因为判断其返回值和直接判断数字的符号本质上是一样的。
- 如果想用Sgn函数将结果评估为False（0）或True（非零值），也可以使用CBool函数。
- Sgn函数主要用于确定表达式的符号，它等价于以下代码：

Public Function Sgn(varNumber as Variant) as Integer
    If varNumber > 0 Then
        Sgn = 1
    ElseIf varNumber = 0 Then
        Sgn = 0
    Else
        Sgn = -1
    End If
End Function