[函数-VBA对对碰]datedif与datediff(日期间隔计算)

兰色幻想 · 发表于 2008-2-11 22:22

<div style="MARGIN-TOP: 10px; FONT-SIZE: 10pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;"><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">     前言：excel某些工作表函数功能在VBA同样也可以实现，但具体怎么实现呢？有哪些工作表函数可以在VBA语句中直接使用呢！为了让VBA初学者了解在工作表中实现的功能在VBA中如何实现，兰色特把有相似或相同功能的excel函数和VBA函数或语句进行对比说明，构成了“VBA-Excel函数对对碰系列”。希望大家能够喜欢。 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">      本期对比内容：Datedif 、Datediff <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">      实现的功能：计算起始日期的间隔年\月\日数。 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">      实例： <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">               1、计算<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>至<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>的月份数 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在工作表中：=DATEDIF("<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>","<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>","m")   结果为5 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在VBA代码中：=DateDiff("m", #<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>8/2/2007<chsdate></chsdate>#, #2/1/2008#)   结果为6 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">               2、计算<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>至<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>的天数 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在工作表中：=DATEDIF("<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>","<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>","D")   结果为183 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在VBA代码中：=DateDiff("D", #<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>8/2/2007<chsdate></chsdate>#, #2/1/2008#)   结果为183                3、计算<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>至<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>的年数 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在工作表中：=DATEDIF("<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>2007-8-2<chsdate></chsdate>","<chsdate year="2008" day="1" islunardate="False" isrocdate="False" wst="on"></chsdate>2008-2-1<chsdate></chsdate>","Y")   结果为0 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">                       在VBA代码中：=DateDiff("YYYY", #<chsdate year="2007" day="2" islunardate="False" isrocdate="False" wst="on"></chsdate>8/2/2007<chsdate></chsdate>#, #2/1/2008#)   结果为1       简评: 二者参数相似,但有以下不同： <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">              1、参数顺序不同 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">              2、在计算年和月的间隔数且不为整年或整月时，VBA中的datediff计算的结果往往比工作表函数datedif计算出的值大1。 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">              3、年月日代码不尽相同，详参阅帮助文件 <p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; TEXT-INDENT: 18pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto;">              4、datediff可以计算两个日期隔多少个星期（周），而datedif不能。  </div>

[此贴子已经被作者于2008-2-11 22:26:55编辑过]

lllllllll · 发表于 2008-2-11 22:25

沙发!!!!!!!!!!![em01][em01]

lllllllll · 发表于 2008-2-11 22:28

谢谢兰版！！！！！！！星期（周）怎么写 ?

兰色幻想 · 发表于 2008-2-11 22:31

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用lllllllll在2008-2-11 22:28:00的发言： 谢谢兰版！！！！！！！星期（周）怎么写 ?</div>间隔周数比较复杂,还要考虑到后面的参数. 具体看VBA帮助吧.

兰色幻想 · 发表于 2008-2-11 22:32

datediff参数说明(摘自VBA帮助): <table cellspacing="4" cols="2" cellpadding="4"><tbody><tr valign="top"><th width="14%">设置</th><th width="86%">描述</th></tr><tr valign="top"><td class="T" width="14%">yyyy</td><td class="T" width="86%">年</td></tr><tr valign="top"><td class="T" width="14%">q</td><td class="T" width="86%">季</td></tr><tr valign="top"><td class="T" width="14%">m</td><td class="T" width="86%">月</td></tr><tr valign="top"><td class="T" width="14%">y</td><td class="T" width="86%">一年的日数</td></tr><tr valign="top"><td class="T" width="14%">d</td><td class="T" width="86%">日</td></tr><tr valign="top"><td class="T" width="14%">w</td><td class="T" width="86%">一周的日数</td></tr><tr valign="top"><td class="T" width="14%">ww</td><td class="T" width="86%">周</td></tr><tr valign="top"><td class="T" width="14%">h</td><td class="T" width="86%">时</td></tr><tr valign="top"><td class="T" width="14%">n</td><td class="T" width="86%">分钟</td></tr><tr valign="top"><td class="T" width="14%">s</td><td class="T" width="86%">秒</td></tr></tbody></table> firstdayofweek 参数的设定值如下：<table cellspacing="4" cols="3" cellpadding="4"><tbody><tr valign="top"><th width="26%">常数</th><th width="12%">值</th><th width="62%">描述</th></tr><tr valign="top"><td class="T" width="26%">vbUseSystem</td><td class="T" width="12%">0</td><td class="T" width="62%">使用 NLS API 设置。</td></tr><tr valign="top"><td class="T" width="26%">vbSunday</td><td class="T" width="12%">1</td><td class="T" width="62%">星期日（缺省值）</td></tr><tr valign="top"><td class="T" width="26%">vbMonday</td><td class="T" width="12%">2</td><td class="T" width="62%">星期一</td></tr><tr valign="top"><td class="T" width="26%">vbTuesday</td><td class="T" width="12%">3</td><td class="T" width="62%">星期二</td></tr><tr valign="top"><td class="T" width="26%">vbWednesday</td><td class="T" width="12%">4</td><td class="T" width="62%">星期三</td></tr><tr valign="top"><td class="T" width="26%">vbThursday</td><td class="T" width="12%">5</td><td class="T" width="62%">星期四</td></tr><tr valign="top"><td class="T" width="26%">vbFriday</td><td class="T" width="12%">6</td><td class="T" width="62%">星期五</td></tr><tr valign="top"><td class="T" width="26%">vbSaturday</td><td class="T" width="12%">7</td><td class="T" width="62%">星期六</td></tr></tbody></table> <table cellspacing="4" cols="3" cellpadding="4"><tbody><tr valign="top"><th width="26%">常数</th><th width="12%">值</th><th width="62%">描述</th></tr><tr valign="top"><td class="T" width="26%">vbUseSystem</td><td class="T" width="12%">0</td><td class="T" width="62%">用 NLS API 设置。</td></tr><tr valign="top"><td class="T" width="26%">vbFirstJan1</td><td class="T" width="12%">1</td><td class="T" width="62%">从包含 1 月 1 日的星期开始（缺省值）。</td></tr><tr valign="top"><td class="T" width="26%">vbFirstFourDays</td><td class="T" width="12%">2</td><td class="T" width="62%">从第一个其大半个星期在新的一年的一周开始。</td></tr><tr valign="top"><td class="T" width="26%">vbFirstFullWeek</td><td class="T" width="12%">3</td><td class="T" width="62%">从第一个无跨年度的星期开始。</td></tr></tbody></table> 说明DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。

[此贴子已经被作者于2008-2-11 22:32:46编辑过]

lllllllll · 发表于 2008-2-11 22:33

天数/7 行吗？[em04]

zjxia889 · 发表于 2008-2-12 20:28

[em23]

laosanjie · 发表于 2008-2-13 08:14

收藏学习了。谢谢兰版！！！

hhzjxss · 发表于 2008-2-13 08:41

工作表里熟悉的东东，到了VBA里就似曾相识，又不太相识！[em04]

ajunqqw123 · 发表于 2008-4-29 16:46

这个要好好思考一下~~再回去。。看看~！！谢谢兰老师~！

		自动登录	找回密码
密码			注册