[函数-VBA对对碰]DATE与DateSerial(由年月日生成日期)

兰色幻想 · 发表于 2008-2-12 16:29

<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;">      本期对比内容：Date、Dateserial <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、已知年份为2008,月份为1,日期为10, 要求生成日期: <chsdate wst="on" isrocdate="False" islunardate="False" day="10" year="2008">2008-1-10</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;">                       在工作表中：=DATE(2008,1,10)  值为<chsdate wst="on" isrocdate="False" islunardate="False" day="10" year="2008">2008-1-10</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;">                       在VBA代码中：DateSerial(2008, 1, 10)  值为<chsdate wst="on" isrocdate="False" islunardate="False" day="10" year="2008">2008-1-10</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;">              2、计算2008年2月的最后一天日期 <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;">                       在工作表中：=DATE(2008,3,0) 值为<chsdate wst="on" isrocdate="False" islunardate="False" day="29" year="2008">2008-2-29</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;">                       在VBA代码中：DateSerial(2008, 3, 0)  值为<chsdate wst="on" isrocdate="False" islunardate="False" day="29" year="2008">2008-2-29</chsdate>     简评:  从上例可以看出，DateSerial是vba版的DATE函数，二者用法基本相同。

[此贴子已经被作者于2008-2-12 16:33:17编辑过]

lllllllll · 发表于 2008-2-12 16:31

谢谢兰版！！！！！！！沙发

laosanjie · 发表于 2008-2-12 16:35

跟着兰版学[函数-VBA对对碰]，收藏学习保存了！ [em23][em23][em23]

[此贴子已经被作者于2008-2-12 16:35:59编辑过]

faliming7 · 发表于 2008-2-12 16:39

看过了

mxg825 · 发表于 2008-2-12 17:28

跟着兰版学

为工作 · 发表于 2008-2-12 18:25

谢谢兰版..........

yss5178 · 发表于 2008-2-12 18:40

[em27]

songlin · 发表于 2008-2-12 19:24

学习VBA！

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

学习了

hhzjxss · 发表于 2008-2-12 22:03

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用兰色幻想在2008-2-12 16:29:00的发言： <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;">DateSerial是vba版的DATE函数，二者用法基本相同。 </div>    谢谢，原来如此，记住一点了！

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