VB 时间间隔的问题
Option Explicit
Private Sub Command1_Click()
If DateDiff("n", Text1.Text, Time) >= 10 Then MsgBox "OK"
End Sub
如果 当前系统时间 大于等于 text1.text中的时间就弹出 “OK”
也就是说 如果现在系统时间是20：00：00 text1.text中的时间是19：00：00 那就会弹出 OK
简单点说就是只要间隔是10分钟就弹出OK
现在问题出来了，如果当前系统时间是0:00:00的时候就有问题了
我就想只要间隔时间是10分钟或者大于10分钟就弹出 OK
大侠帮忙改下啊，分不多大侠帮帮忙啊。
VB code:
Option Explicit
Dim lngP As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
lngP = GetTickCount
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetTickCount - lngP > 600000 Then
MsgBox "OK"
lngP = GetTickCount
End If
End Sub
我text1.text里的时间是获取一个ini里的时间啊，这个不行啊
需要带上日期才能解决0:00:00的问题，如
sTime2 = Format(Now, "yyyy-mm-dd hh:mm:ss")
text1.text中的时间也应是这种格式，才能用datediff函数，在sql语句中得到时间差
带上日期就好了
Private Sub Command1_Click()
If Abs(DateDiff("n", Text1.Te
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
Public Function HexToStr(ByVal strs As String) As String
Dim i As Integer, tmp As String, n
If Len(strs) Mod 2 Then Exit Function
For ......
