白癜风专项援助活动 https://baike.baidu.com/item/青少年白癜风防治援助项目/22039760No.1VBA编程中，获取日期是一个简单的功能，同样对日期进行增减计算处理也是个容易的操作。本节我们来了解一下关于计算机系统日期的一些操作。DateAdd函数如上图所示，DateAdd是一个函数名。可以简单理解为日期相加。也就是说根据某个日期进行增加或减少某个数值之后返回一个日期。这样，就得到了一个新的日期值。比如，要以当前日期为基准，退后3天，那么就是在当前日期增加3天。代码如下：DateAdd(d,3,Date)DateAdd函数详细语法和参数，如下图所示：No.2DateAdd函数语法：DateAdd(interval,number,date)其中参数inerval限定了相加的类型，如以天为单位相加参数d，月为单位相加参数为m，可参考上图进行设置。number是一个数值，也就是时间间隔多少值，这个参数可以为正值，也可以负值，但必须是个整数long。当然此参数还有一些规定，如果计算的日期位于年份数前，也就是说减去年份数之后的结果必须大于等于，否则会出现错误。如：DimNextDateAsDateNextDate=DateAdd(yyyy,-,-2-15)MsgBoxNextDate返回/2/15-就是可以减去的最多年份，如果改成小于等于-则报错。也就是说不能得到小的年份，至于是什么原因造成这个结果？恐怕只有微软知道。No.3Date函数这个函数还是有一定意义的，比如设置某个年份为基准，向后推移2年。直接在这个年份之上加2就可以了。那么还有一个特别重要的日期函数，要掌握。那就是Date函数。此函数没有参数，直接返回当前系统日期。可使用如下代码：MsgboxDate输出当前日期No.4Date语句重点：Date函数和Date语句是两个概念。函数用于取日期，语句用于设置日期。一个是获取Get，一个是设置Set。理解清楚之后，就可以使用不同的Date函数和语句进行不同的代码表达。如果，想要设置当前系统日期为年12月25日。可以使用如下语句：Date=-12-25使用方法很简单，问题在于要对概念进行正确理解。No.5设置系统日期PrivateSubSetDate()DimNowDateAsDateNowDate=Application.InputBox(设置日期,输入日期,VBA.Format(Date,yyyy-mm-dd))IfNotIsDate(NowDate)ThenExitSubDate=NowDateEndSub查看当前日期后3年的日期PrivateSubGetYear()DimNextDateAsDateNextDate=DateAdd(yyyy,3,Date)MsgBoxNextDateEndSub查看当前日期3天前的日期PrivateSubGetUpDate()DimNextDateAsDateNextDate=DateAdd(d,-3,Date)MsgBoxNextDateEndSub日期功能函数和语句是个简单的功能，但也是一个很重要的函数，必要掌握的一个知识。所以，特别拿来整理学习一下。欢迎