送分100分：求VB6中两个时间的差值小于30秒的代码

Question

送分100分：求VB6中两个时间的差值小于30秒的代码

Answer 1

Private Sub Command1_Click()
    Dim d1 As Date
    Dim d2 As Date
    
    d1 = "2008-12-10 08:20:20"
    d2 = "2008-12-10 08:20:30"
    
    If Abs(DateDiff("s", d1, d2)) < 30 Then
        MsgBox "ok"
    End If
    
End Sub

Answer 2

Private Sub Command2_Click()
    Dim a As Date, b As Date
    a = "2009-12-11 12:10:10"
    b = "2009-12-11 12:10:06"
    If Val(Format(a - b, "ss")) < 30 Then
        MsgBox "间隔小于30秒" '分钟用nn,小时用HH
    End If
End Sub

Answer 3

if abs(a-b)<30#/24#/3600# then

Answer 4

简单的datediff问题。有送就接

Answer 5

DateDiff 函数
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
interval 参数的设定值如下：
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 

Answer 6

Private Sub Command1_Click()
    Dim dateNow As Date
    Dim date30 As Date
    dateNow = Now
    date30 = DateAdd("s", 30, dateNow)
    Debug.Print dateNow
    Debug.Print date30
End Sub