vb中的dateadd函数急!!!

发布网友发布时间：2022-04-24 14:54

共3个回答

懂视网时间：2022-04-24 19:15

项目中需要用到日历，.net的日历控件又太重，只好用js写一个，日历的核心函数是 DateAdd()，编写过程中发现 js 里面操作时间比想象中的繁琐，不像vbscript中的可以轻松地dateadd，后来才想到用 setFullYear()、setDate()等内置函数，可以拼合一个js版的 dateadd() 来，代码如下：

代码如下:
function DateAdd(interval,number,date){ // date 可以是时间对象也可以是字符串，如果是后者，形式必须为: yyyy-mm-dd hh:mm:ss 其中分隔符不定。"2006年12月29日 16点01分23秒" 也是合法的
number = parseInt(number);
if (typeof(date)=="string"){
date = date.split(/D/);
--date[1];
eval("var date = new Date("+date.join(",")+")");
}
if (typeof(date)=="object"){
var date = date
}
switch(interval){
case "y": date.setFullYear(date.getFullYear()+number); break;
case "m": date.setMonth(date.getMonth()+number); break;
case "d": date.setDate(date.getDate()+number); break;
case "w": date.setDate(date.getDate()+7*number); break;
case "h": date.setHours(date.getHour()+number); break;
case "n": date.setMinutes(date.getMinutes()+number); break;
case "s": date.setSeconds(date.getSeconds()+number); break;
case "l": date.setMilliseconds(date.getMilliseconds()+number); break;
}
return date;
}

这个函数已经尽量模仿 vbscript 中的 dateadd 函数，三个参数，第一个是变化的时间间隔，可以是年、月、日、周、时、分、秒、毫秒(扩展)，第三个参数可以是时间对象，也可以是字符串（形式必须为：2006-12-29 14:32:57 或 2006年12月29日 14点32分57秒），函数的返回值是新的时间对象。

热心网友时间：2022-04-24 16:23

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

你自己试试是不是有用呢。

热心网友时间：2022-04-24 17:41

Option Explicit
Dim t As Integer

Private Sub Form_Load()
t = 0
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
t = t + 1
Label1.Caption = Str(t)
End Sub

其实这样就可以实现你要的功能了啊

你为什么要设置Timer1.Interval = 100？？

直接搞为2000就可以了，可以节约资源

vb中的dateadd函数 急!!!

vb中的dateadd函数急!!!