No.1VBA编程中,获取日期是一个简单的功能,同样对日期进行增减计算处理也是个容易的操作。 本节我们来了解一下关于计算机系统日期的一些操作。 DateAdd函数 如上图所示,DateAdd是一个函数名。 可以简单理解为日期相加。 也就是说根据某个日期进行增加或减少某个数值之后返回一个日期。 这样,就得到了一个新的日期值。 比如,要以当前日期为基准,退后3天,那么就是在当前日期增加3天。 代码如下: DateAdd('d',3,Date) DateAdd函数详细语法和参数,如下图所示: No.2DateAdd函数语法: DateAdd(interval, number, date) 其中参数inerval限定了相加的类型,如以天为单位相加参数'd',月为单位相加参数为'm',可参考上图进行设置。 number是一个数值,也就是时间间隔多少值,这个参数可以为正值,也可以负值,但必须是个整数long。 当然此参数还有一些规定,如果计算的日期位于年份数 100 前,也就是说减去年份数之后的结果必须大于等于100,否则会出现错误。 如: Dim NextDate As DateNextDate = DateAdd('yyyy', -1921, '2021-2-15')MsgBox NextDate'返回'100/2/15' -1921就是可以减去的最多年份,如果改成小于等于-1922则报错。 也就是说不能得到小100的年份,至于是什么原因造成这个结果?恐怕只有微软知道。 No.3Date函数 这个函数还是有一定意义的,比如设置某个年份为基准,向后推移2年。直接在这个年份之上加2就可以了。 那么还有一个特别重要的日期函数,要掌握。 那就是Date函数。 此函数没有参数,直接返回当前系统日期。 可使用如下代码: Msgbox Date'输出当前日期 No.4Date语句 重点:Date函数和Date语句是两个概念。 函数用于取日期,语句用于设置日期。 一个是获取Get,一个是设置Set。 理解清楚之后,就可以使用不同的Date函数和语句进行不同的代码表达。 如果,想要设置当前系统日期为2020年12月25日。 可以使用如下语句: Date='2020-12-25' 使用方法很简单,问题在于要对概念进行正确理解。 No.5设置系统日期
查看当前日期后3年的日期 Private Sub GetYear()Dim NextDate As DateNextDate = DateAdd('yyyy', 3, Date)MsgBox NextDateEnd Sub 查看当前日期3天前的日期
日期功能函数和语句是个简单的功能,但也是一个很重要的函数,必要掌握的一个知识。 所以,特别拿来整理学习一下。 |
|
来自: 满泉ca85upjdlw > 《Excel知识》