Excel 日常用函数.doc

VBA日期的加减函数：DateAdd 函数 返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。 语法 DateAdd(interval, number, date) DateAdd 函数语法中有下列命名参数： 部分 描述 interval 必要。字符串表达式，是所要加上去的时间间隔。 number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。 设置 interval 参数具有以下设定值： 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 说明 可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。 为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。 DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月： DateAdd(m, 1, 31-Jan-95) 上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。 如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。 如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。 注意???DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。 DateAdd 函数示例 本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。 Dim FirstDate As Date 声明变量。 Dim IntervalType As String Dim Number As Integer Dim Msg IntervalType = m m指定以“月份”作为间隔。 FirstDate = InputBox(Enter a date) Number = InputBox(Enter number of months to add) Msg = New date: DateAdd(IntervalType, Number, FirstDate) MsgBox Msg Datedif函数帮助 DATEDIF计算两个日期之间的天数、月数或年数。提供此函数是为了与 Lotus 1-2-3 兼容。语法DATEDIF(start_date,end_date,unit)Start_date 为一个日期，它代表时间段内的第一个日期或起始日期。日期有多种输入方法：带引号的文本串（例如 2001/1/30）、系列数（例如，如果使用 1900 日期系统则 36921 代表 2001 年 1 月 30 日）或其他公式或函数的结果（例如，DATEVALUE(2001/1/30)）。有关日期系列数的详细信息，请参阅 NOW。End_date 为一个日期，它代表时间段内的最后一个日期或结束日期。Unit 为所需信息的返回类型。Unit返回Y 时间段中的整年数。M 时间段中的整月数。D 时间段中的天数。MD start_date 与 end_date 日期中天数的差。忽略日期中的月和年。YM start_date 与 end_date 日期中月数的差。忽略日期中的日和年。YD start_date 与 end_date 日期中天数的差。忽略日期中的年。说明 Microsoft Excel 按顺序的系列数保存日期，这样就可以对其进行计算。如果工作簿使用 1900 日期系统，则 Excel 会将 1900 年 1 月 1 日保存为系列数 1。而如果工作簿使用 1904 日期系统，则 Excel 会将 1904 年 1 月 1 日保存为系列数 0，（而将 1904 年 1 月 2 日保存为系列数 1）。例如，在 1900 日期系统中 Excel 将 1998 年 1 月 1 日保存为系列数 35796，因为该日期距离 1900 年 1 月 1 日为 35795 天。请查阅 Microsoft Excel 如何存储日期和时间。Excel for Windows 和 Excel for