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的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
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 ......
