VBA日期函数dateadd教程

dateadd返回包含一个日期的Variant(Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd函数语法中有下列命名参数：

部分

描述

interval    必要。字符串表达式，是所要加上去的时间间隔。    

number    必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。    

date    必要。Variant(Date)

设置

interval参数具有以下设定值：

设置

描述

yyyy    年    

q    季    

m    月    

y    一年的日数    

d    日    

w    一周的日数    

ww    周    

h    时    

n    分钟    

s    秒    

sub test()

  Dim da As Date    da = "2014-4-7"    Debug.Print "当前日期：" & MyDate    Debug.Print "前5天的日期：" & DateAdd("d", -5, MyDate)    Debug.Print "后5天的日期：" & DateAdd("d", 10, MyDate)    Debug.Print "下月的今日：" & DateAdd("m", 1, MyDate)    Debug.Print "下周同星期数的日期：" & DateAdd("ww", 1, MyDate)    Debug.Print "明年的今日：" & DateAdd("yyyy", 1, MyDate)End Sub

输出结果当前日期：2014-4-7前5天的日期：2014-4-2后5天的日期：2014-4-12下月的今日：2014-5-7下周同星期数的日期：2014-4-14明年的今日：2015-4-7