vb6.0时间转换计算方法

vb6.0时间转换demo的主要代码是

Private Sub Command1_Click()
Text1.Text = Now  ’Now是现在的时间
Text2.Text = DateAdd("h",-15,Text1.Text)
End Sub

其中DateAdd(interval, number, date)是核心方法

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

部分 描述
interva：必要参数。字符串表达式，是所要加上去的时间间隔。
number：必要参数。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date：必要参数。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置
interval 参数具有以下设定值：

设定值	意义
yyyy	年
q	季
m	月
y	一年的日数
d	日
w	一周的日数
ww	周
h	时
n	分钟
s	秒

举例：

Text = DateAdd("yyyy", -2, “2015-11-18”)

那么 Text 结果为 2013-11-18

Text = DateAdd("m", -2, “2015-11-18”)

那么 Text 结果为 2015-9-18

Text = DateAdd("y", -2, “2015-11-18”)

那么 Text 结果为 2015-11-16
注意：
在DateAdd 函数中，w，y，d返回的日期值是相同的。在DateDiff中，y，d返回日期值相同，w不同。在DatePart中，w，y，d各不相同。w可以理解为一周的第几天，y可以理解为一年的第几天。d理解为日期就行了。例如D=#2018-1-29#

1、DateAdd。DateAdd（“d”，2，d）表示天数加2，函数返回日期2018-1-31。DateAdd（“y”，2，d）返回天数所在的日期。如题是29+2=31天，2018年的31天就是2018-1-31.DateAdd（“w”，2，d），返回值是某周某天所在日期（默认是一周第一天是周日）。如题是2018年1月29是第5周的第2天+两天也是2018-1-31.所以三者结果完全一样。

2、DatePart。DatePart（“w”,d）它的意思是求2018年1月29日是2018年第某周的第某天，返回值是第某天的天数。如题表示2018年的第五周第二天（1月28日），所以返回是2。DatePart（“y”,d）表示2018年1月29日是2018年的第多少天，返回值是29天。DatePart（“d”,d）=29。

3、DateDiff同理。不说了。