当任何一个参数的取值超出可接受的范围时，它会适时进位到下一个较大的时间单位。例如，如果指定了 35 天，则这个天数被解释成一个月加上多出来的日数，多出来的日数将由其年份与月份来决定。如果一个参数值超出 -32，768 到 32，7DateSerial 函数示例
本示例使用 DateSerial 函数来将指定的年月日转换为 Date 类型的表达式。 Dim MyDate
' MyDate 的值为 February 12，1969， Date 类型。 MyDate = DateSerial(1969, 2, 12) ' 返回日期。 67 的范围，就会导致错误发生。
DateValue 函数
返回一个 Variant (Date)。 语法
DateValue(date)
必要的 date 参数 date 通常是字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日之间的一个日期。但是，date 也可以是任何表达式，其所代表的日期、时间在上述范围内。 说明
如果 date 是一个字符串，且其内容只有数字以及分隔数字的日期分隔符，则 DateValue 就会根据系统中指定的短日期格式来识别月、日、年的顺序。DateValue 也识别明确的英文月份名称，全名或缩写均可。例如，除了 12/30/1991 和 12/30/91 之外，DateValue 也识别 December 30, 1991 和 Dec 30, 1991。
如果 date 中略去了年这一部分，DateValue 就会使用由计算机系统日期设置的当前年份。
如果 date 参数包含时间信息，则 DateValue 不会返回它。但是，如果 date 包含无效时间信息（如 89:98），则会导致错误发生。
DateValue 函数示例
本示例使用 DateValue 函数将字符串转换为日期。也可以使用日期原义直接 给 Variant 或 Date 类型的变量赋值日期，例如 MyDate = #2/12/69# 。 Dim MyDate
MyDate = DateValue(\返回日期。
Day 函数
返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日。 语法 Day(date)
必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Day 函数示例
本示例使用 Day 函数将指定的日期转换为该月的第几天。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。。 Dim MyDate, MyDay
MyDate = #February 12, 1969# ' 指定一日期。 MyDay = Day(MyDate) ' MyDay 的值为 12。
DDB 函数
返回一个 Double，指定一笔资产在一特定期间内的折旧。可使用双下落收复平衡方法或其它指定的方法进行计算。 语法
DDB(cost, salvage, life, period[, factor]) DDB 函数具有下列命名参数： 部分 描述 必要。Double 指定资产的初始成本。 cost salvage life period factor 说明
必要。Double.指定使用年限结束时的资产价值。 必要。Double 指定资产可用的可用年限。 必要。Double 指定计算资产折旧所用的那一期间。 可选。Variant 指定收复平衡下落时的速度。如果省略的话，2（双下落方法）为缺省值。 双下落收复平衡方法用加速利率法计算折旧。在第一段时期，折旧为最高，而在接下来的期间内降低。
life 和 period 参数必须用相同的单位表示。例如，如果 life 用月份表示，则 period 也必须用月份表示。所有参数都必须是正值。 DDB 函数使用下列公式计算在一定时期后的折旧： 折旧 / period = ((cost – alvage) * factor) / life
DDB 函数示例
本示例使用 DDB 函数来计算某项资产在一特定期间内的折旧。计算时需给定资产的初始成本（InitCost），使用年限退出时所余的价值（SalvageVal），以“年”为单位之可用的生命长度（LifeTime），以及所要计算折旧的期间年限（Depr）。 Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr Const YRMOS = 12 ' 一年之中的月份数。 Fmt = \
InitCost = InputBox(\
SalvageVal = InputBox(\ MonthLife = InputBox(\Do While MonthLife < YRMOS ' 确保计算期间大于等于一年 。 MsgBox \
MonthLife = InputBox(\Loop
LifeTime = MonthLife / YRMOS ' 将月份数转成年份数。 If LifeTime <> Int(MonthLife / YRMOS) Then
LifeTime = Int(LifeTime + 1) ' 四舍五入至最接近的年份。 End If
DepYear = CInt(InputBox(\Do While DepYear < 1 Or DepYear > LifeTime
MsgBox \ DepYear = InputBox(\Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox \Format(Depr, Fmt) & \
Dir 函数
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法
Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分： 部分 描述 可选参数。用来指定文件名的字符串表达式，可能包含目录或文 件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 (\。 pathname attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。 设置值
attributes 参数的设置可为： 常数 vbNormal vbReadOnly vbHidden VbSystem vbVolume 值 0 1 2 4 8 描述 (缺省) 指定没有属性的文件。 指定无属性的只读文件 指定无属性的隐藏文件 指定无属性的系统文件 指定卷标文件；如果指定了其它属性，则忽略vbVolume vbDirectory 16 指定无属性文件及其路径和文件夹。 注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。 说明
Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。
由于 Macintosh 不支持通配符，使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称:
Dir(\为选中文件夹中所有文件，指定一空串: Dir(\
在 Microsoft Windows 中，如果在Dir函数中使用MacID函数，将产生错误。 任何大于256的attribute值都被认为是MacID 函数的值。
在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。
Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 (\。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。
提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。
Dir 函数示例
本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。