[已解决]DateDiff 函数

爱疯

DateDiff 函数

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

语法

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

问题：可否以代码示例，参数4和参数5的作用？

谢谢

[em04]

最佳答案

月排行榜 / 总排行榜

amulee

2009-11-13 13:09

后面一个不清楚，前面一个

Sub test()
    '2009-1-1为周四，未设定参数后，两天在一个星期内。设定了参数一周第一天为周四后，计算两天相差结果就为1周了
    MsgBox DateDiff("ww", #12/31/2008#, #1/1/2009#)
    MsgBox DateDiff("ww", #12/31/2008#, #1/1/2009#, vbThursday)
End Sub

[此贴子已经被作者于2009-11-13 13:09:33编辑过]

跳转到最佳答案楼层

amulee

后面一个不清楚，前面一个

Sub test()
    '2009-1-1为周四，未设定参数后，两天在一个星期内。设定了参数一周第一天为周四后，计算两天相差结果就为1周了
    MsgBox DateDiff("ww", #12/31/2008#, #1/1/2009#)
    MsgBox DateDiff("ww", #12/31/2008#, #1/1/2009#, vbThursday)
End Sub

[此贴子已经被作者于2009-11-13 13:09:33编辑过]

搁浅2008

爱疯 你还记得以前V3时学窗体的时候 讨论的那个运行后ListView自定义会是中文的,那个下载控件的帖子在哪不

amulee

QUOTE:

以下是引用搁浅2008在2009-11-13 14:26:00的发言：
爱疯 你还记得以前V3时学窗体的时候 讨论的那个运行后ListView自定义会是中文的,那个下载控件的帖子在哪不

[em06][em06]

爱疯

Sub 求相隔的周数()

    Dim D1 As Date
    Dim D2 As Date
   
    D1 = #11/15/2009#   '（本）周日
    D2 = #11/16/2009#   '（下）周一
   
    '缺省就是（vbSunday），如果设定每周始于星期日，那么d1和d2在同周，返回0
    MsgBox DateDiff("ww", D1, D2)
   
    '手工修改（vbMonday），如果改为每周始于星期一，那么d1和d2相隔1周，返回1
    MsgBox DateDiff("ww", D1, D2, vbMonday)
   
End Sub

对我，觉得好难明白，希望不会很快忘记。。。。[em04]

谢谢阿木！！

爱疯

Date 常数

可在代码中的任何地方用下列常数代替实际值：

参数值

firstdayofweek 参数具有以下这些值：

常数	值	描述
vbUseSystem	0	使用 NLS API 设置。
vbSunday	1	星期日（缺省）
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

firstdayofyear 参数具有以下这些值：

常数	值	描述
vbUseSystem	0	使用 NLS API 设置。
VbUseSystemDayOfWeek	0	使用系统设置中为星期的第一天指定的星期数。
VbFirstJan1	1	由 1 月 1 日所在的那个星期开始（缺省）。
vbFirstFourDays	2	由新的一年中第一个至少有 4 天的星期开始。
vbFirstFullWeek	3	由一年中第一个完整的星期开始。

返回值

常数	值	描述
vbSunday	1	星期日
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六