vb中dateadd函数怎么用(datediff vb)
在VB6.0中，DateAdd函数中，用"w","y"与"d"，我怎么感觉都一样呀，都是天
在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同理。不说了。
望采纳，给满分哦。
VB 如何用一个固定日期加上一个变量天数得出新的日期
VB6.0可使用Date数据类型来进行计算。
Date 数据类型，Date 变量存储为 IEEE 64 位（8
个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到
23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#)
扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。
1）Date 变量会根据计算机中的短日期格式来显示。时间则根据计算机的时间格式（12 或 24 小时制）来显示。
2）当其他的数值类型要转换为 Date
型时，小数点左边的值表示日期信息，而小数点右边的值则表示时间。午夜为 0 而中午为 0.5。负整数表示 1899 年 12 月 30
日之前的日期。
以下代码演示自当前日期往后加100天。
Option?Explicit
????Dim?ri?As?Date
Private?Sub?Command1_Click()
????ri?=?ri?+?100?'增加100天
????Text2?=?ri
End?Sub
Private?Sub?Form_Load()
????ri?=?Date
????Text1?=?ri
End?Sub
VB计算某一天再过几天是哪一天怎么计算?
用DateAdd函数：
Dim a As Date
a = "2009-1-1"
MsgBox DateAdd("d", 100, a)
vb如何将一个日期变成另一个值。
可以参考下面的代码：
Private Sub DTPicker1_Change()
Text1.Text = DateDiff("d", DTPicker1, DTPicker2)
End Sub
Private Sub DTPicker2_Change()
Text1.Text = DateDiff("d", DTPicker1, DTPicker2)
End Sub
扩展资料：
VB参考函数
Date 函数： 返回当前系统日期。
DateAdd 函数： 返回加上了指定的时间间隔的日期。
DateDiff 函数： 返回两个日期之间的间隔。
DatePart 函数： 返回给定日期的指定部分。
DateSerial 函数： 返回指定年月日的日期子类型的变体 。
DateValue 函数： 返回日期子类型的变体 。
Day 函数： 返回日期，取值范围为 1 至 31。
参考资料来源：百度百科-Visual Basic
vb时间的加减
DateAdd 函数
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
设置
interval 参数具有以下设定值：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
说明
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。
DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：
DateAdd(m, 1, 31-Jan-95)
上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。
如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。
如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。
注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。
DateAdd 函数示例
本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。
Dim FirstDate As Date ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
vb中的dateadd函数 急！！！！！！！！
Option Explicit
Dim dat As Date
Dim t As Integer
Private Sub Form_Load()
Timer1.Interval =2000
End Sub
Private Sub Timer1_Timer()
t = t + 1
End Sub
就可以完成你说的两秒加一次
Timer1.Interval = 2000
至于你的当T变为1时就不真要变化主查因为dateadd函数在运行时你的两个时间已经超过了2秒，所以后所有的时钟运算的都没有用了。
Dim dat As Date
Dim t As Integer
Private Sub Form_Load()
Timer1.Interval = 100
dat = Time
t = 0
End Sub
Private Sub Timer1_Timer()
Label1 = Time
If Time = DateAdd("s", 3, dat) Then
dat = Time
t = t + 1
Label3.Caption = Str(t)
End If
Label2 = dat
End Sub
你自己试试是不是有用呢。