时间函数汇总

一点通

1.Cdate(日期表达式)

　　将日期表达式转换成日期类型的数据。

　　日期表达式是任何可以解释成日期的表达式，包含日期文字，可以看作日期的字符串以及从函数返回的日期。

　　比如：myDate = CDate("99-5-20")   ，这样的日期表达式必须加双引号，否则结果不可预料。

　　CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。

2.Now()

　　返回当前计算机系统设置的日期和时间。

3.Year(日期表达式)

　　返回表示年份的整数。

　　比如：Year("00-6-15") = 2000

4.Month(日期表达式)

　　返回 1 到 12 之间的整数，表示一年中的某月。

　　比如：Month("00-6-15") = 6

5.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("d",10,"2000-6-18")

结果是： 2000-06-28

　　DateAdd("m",-1,"2000-6-18")

结果是： 2000-05-18

6、DateDiff 函数

        返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

interval 参数的设定值同DateAdd函数，请参考上面的例子。

例：DateDiff("d",#2004-01-06#,#2004-01-07#)     1

7、DatePart 函数

        返回一个包含已知日期的指定时间部分的 Variant (Integer)。

语法 DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

DatePart 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，是要返回的时间间隔。

date 必要。要计算的 Variant (Date) 值。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval 参数的设定值同DateAdd()

DatePart 函数示例本示例先取得一个日期，然后使用 DatePart 函数显示该日期是发生在该年的哪一季。

Dim TheDate As Date    ' 声明变量。

Dim Msg

    T

wang1950317

真是全面啊！谢谢一点通版主！

shitou1ge

太有用啦

难得糊涂NDHT

确实很详细！学习一下！

chaojianan

谢谢分享，收藏了。

听雨

顶,学习了,刚用这个解决了一个问题

6100535

看看,学一学

hayhay

感谢一点通版主

qsdys

谢谢分享!学习了,谢谢!

jay_0218

如何计算一个月最后一天是29还是30还31