vb日期操作

字符串与日期相互转换

VB使用 CDate 函数将字符串转换成 Date类型

s1 = "2000-01-01"

d1 = Cdate(s1)

VB使用 format 函数将日期转换成字符串类型

d1 = format(now,"yyyy-MM-dd")

获取年月日时分秒

获取一个日期的年月日时分秒，假设变量d1为Date类型

Year(d1)　　获取年份

Month(d1)　　获取月份，获取到的月份第一位不带0

Day(d1)　　获取日期，第一位不带0

Hour(Now)

Minute(Now)

Second(Now)

日期加减计算

用 DateAdd 函数可实现日期、时间的加减

用法：DateAdd(nStr, S, nTime)

nTime ：表示基准时间，在该时间上进行加减

S ：表示加上的时间、日期数值，负数表示减去

nStr ：表示要加减的项目。共6个（年：y 月：m 日：d 时：h 分：n 秒：s）

nStr 参数可以有以下值：

-----------------
设置 描述 
yyyy 年 
q 季度 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 小时 
n 分钟 
s 秒 
------------------------
如果要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。

DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月： 
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。

如果计算的日期是在公元 100 年之前，则会产生错误。

举例：

比如dateadd(＂yyyy＂,1,now（)），在今天的日期上加上一年。

比如dateadd(＂yyyy＂,-1,now（)），在今天的日期上减去一年。

比如dateadd(＂d＂,1,now（)），在今天的日期上加上一天。

比如dateadd(＂d＂,-1,now（)），在今天的日期上减去一天。

比如dateadd(＂m＂,1,now（)），在今天的日期上加上一月。

比如dateadd(＂d＂,-1,now（)），在今天的日期上减去一月。