今日的内容是“VBA之EXCEL应用”的第十章“VBA中日期和时间的处理”。这讲是第1节“DateValue函数和DateAdd函数”。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。
第一节 DateValue函数和DateAdd函数
大家好，我们先来认识一下日期，日期是包含一个年、月、日在内的特定的符号，当我们指定一个日期的时候，我们可以用DateValue函数，而且，当我们需要指定相隔某个天数后的日期时，我们可以用DateAdd函数来实现。我们这讲就讲解这两个函数。
1 DateValue 函数
这个函数返回一个日期型的变量Variant (Date)。
其中参数date是必需的，通常是一个字符串表达式, 表示从100年1月1日到9999年12月31日之间的日期。但是，date 还可是任何表示该范围内的日期、时间或日期和时间的表达式。
l如果date是一个仅包含由有效日期分隔符分隔的数字的字符串, 则DateValue将根据您为系统指定的短日期格式识别月、日和年的顺序。DateValue还能清楚地识别包含月名称（长名称或简写形式）的日期。例如，除了识别 12/30/1991 和 12/30/91 之外，DateValue 还识别 December 30, 1991 和 Dec 30, 1991。
l如果省略 date 的年部分，则 DateValue 将使用计算机系统日期中的当前年。
l如果date参数包含时间信息，则 DateValue 将不会返回它。但是，如果 date 包含的时间信息无效（如“89:98”），则将出错。
2 DateAdd函数
这个函数返回一个日期变量 Variant (Date) 值，其中包含已添加了指定时间间隔的日期。
语法：DateAdd(interval, number, date)
interval 必需。 作为要添加的时间间隔的字符串表达式。
number 必需。 作为要添加的时间间隔数的数值表达式。 它可以为正（获取将来日期）或为负（获取过去的日期）。
date 必需。 Variant (Date) 或文本，表示添加间隔的日期。
l可以使用 DateAdd 函数在日期中添加或减去指定时间间隔。 例如，您可以使用 DateAdd 计算从今日起 30 天后的日期或从现在起 45 分钟后的时间。
l在使用“w”时间间隔（包括一周的所有天，从星期日到星期六）向日期添加天数时，DateAdd 函数会向日期添加您指定的总天数，而不是像您预期的那样仅向日期添加工作日（从星期一到星期五）数。
lDateAdd 函数向1月31日添加一个月：DateAdd("m", 1, "31-Jan-95")，在此情况下，DateAdd 返回1995年2月28 日，而不是1995年2月31日。如果date为1996年1月31 日，则它将返回 1996年2月29日，因为1996年是闰年。
l如果计算的日期位于年份数 100 前（即，你减去的年份数大于 date 中的年份，则出现错误。
l如果 number 不是 Long 值，则在计算之前将其四舍五入到最接近的整数。
lDateAdd的返回值的格式由“控制面板”设置决定，而不是由date参数中传递的格式决定。
3 DateValue 函数和DateAdd函数的实例应用
下面通过一个实例来看看这个两个日期函数的具体应用：
Dim myExda, myFida, mySeda As Date
myExda = DateValue("Jan 19, 2020")
myFida = DateValue("Jan 19, 2020")
mySeda = DateAdd("d", 3, myFida)
1）myExda = DateValue("Jan 19, 2020") 将字符串"Jan 19, 2020"转换为日期格式
2）MsgBox Year(myExda)弹出上述日期的年份
3）mySeda = DateAdd("d", 3, myFida)以日期计算，将myFida之后的第三个日期，复制给mySeda变量。
3） 如何理解DateAdd函数中各个参数的意义？
VBA的应用及学习方法：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。
以上各教程学习顺序：7→1(或者4)→3→2→6→5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。
_______________________________
更多关联阅读
发表评论