vba常用函数详细介绍及示例

Abs 函数

返回将传递给指定数字的绝对值的相同类型的值。

语法

Abs(数字)

必需的_number_ 参数可以是任何有效的数值表达式。 如果 number 包含 Null，则返回 Null；如果它是未初始化的变量，则返回 0。

数字的绝对值是其无符号大小。 例如, ABS(-1)和ABS(1)都返回。 1

示例

此示例使用 Abs 函数计算数字的绝对值。

Dim MyNumber
MyNumber = Abs(50.3)    ' Returns 50.3.
MyNumber = Abs(-50.3)    ' Returns 50.3.

Int、Fix 函数

返回数字的整数部分。

语法

Int(数字)

必需的_number_参数是Double或任何有效的数值表达式。 如果_number_包含null, 则返回null 。

示例

此示例演示 Int 和 Fix 函数如何返回数字的整数部分。 如果为负数参数，则 Int 函数将返回小于或等于该数的第一个负整数； Fix 函数返回大于或等于该数的第一个负整数。

Dim MyNumber
MyNumber = Int(99.8)    ' Returns 99.
MyNumber = Fix(99.2)    ' Returns 99.
 
MyNumber = Int(-99.8)    ' Returns -100.
MyNumber = Fix(-99.8)    ' Returns -99.
 
MyNumber = Int(-99.2)    ' Returns -100.
MyNumber = Fix(-99.2)    ' Returns -99.

Rnd 函数

返回一个包含伪随机数字的Single 。

语法

Rnd[(数字)]

可选的_Number_ 参数是一个单个或任何有效的数值表达式。

返回值

返回值

如果_Number_为

则 Rnd 生成

小于 0

使用_number_作为种子时, 每次使用相同的数字。

大于 0

伪随机序列中的下一个号码。

等于 0

最近生成的数字。

未提供

伪随机序列中的下一个号码。

备注

Rnd 函数返回一个小于 1 但大于或等于 0 的值。

_Number_的值决定了Rnd生成为随机数字的方式:

对于任何给定的原始种子，由于对 Rnd 函数的每个后续调用会将之前的数字用作序列中的下一个数字的种子，因此，将生成相同的数字序列。

在调用 Rnd 之前，请使用不带参数的 Randomize 语句来通过基于系统计时器的种子初始化随机数字生成器。

若要生成给定范围中的随机整数，使用此公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 

此处，upperbound 是范围中的最大数字，_lowerbound_是范围中的最小数字。

示例

此示例使用 Rnd 函数生成一个介于 1 和 6 之间的随机整数值。

Dim MyValue As Integer
MyValue = Int((6 * Rnd) + 1)    ' Generate random value between 1 and 6.

Date 函数

返回包含当前系统日期的 Variant (Date)。

语法

Date

示例

此示例使用 Date 函数返回当前系统日期。

Dim MyDate
MyDate = Date    ' MyDate contains the current system date.

DateAdd 函数

返回一个 Variant (Date) 值，其中包含已添加了指定时间间隔的日期。

语法

DateAdd(interval, number, date)

DateAdd 函数语法包含以下命名参数：

语法

Part

说明

interval

必需。 作为要添加的时间间隔的字符串表达式。

number

必需。 作为要添加的时间间隔数的数值表达式。 它可以为正（获取将来日期）或为负（获取过去的日期）。

date

必需。 Variant (Date) 或文本，表示添加间隔的日期。

示例

此示例采用一个日期并使用 DateAdd 函数显示指定月数后的对应日期。

Dim FirstDate As Date ' Declare variables.

Dim IntervalType As String
Dim Number As Integer
Dim Msg As String
IntervalType = "m"    ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg =