用操作系统提供的任务功能

结帖率：0.00% 

为什么不结贴？

程序运行起来后，Timer也跑起来，然后根据DateTime.Hour(Now)来判断时间执行

Timer1.Enabled = True
Timer1.Interval = 1000

If Time = "23:00:00" Then
过程函数或代码
end if

引用 4 楼 jbwd1 的回复:

Timer1.Enabled = True
Timer1.Interval = 1000

If Time = "23:00:00" Then
过程函数或代码
end if

这个有问题，如果到时间，系统在运行其他，就会错过

Private sub Timer_Timer()
If Val(Hour(now))=23 then
你的代码
End sub

Private sub Timer_Timer() 
If Val(Hour(now))=23 then 
你的代码 
End If
End sub

引用 7 楼 syssz 的回复:

Private sub Timer_Timer()
If Val(Hour(now))=23 then
你的代码
End If
End sub

会运行多少次？

是这样的 我每天要固定个时间运行 1次 只运行1次 23点 导入当天的数据 

引用 2 楼 jhone99 的回复:

结帖率：0.00%

 为什么不结贴？

干脆不在VB中判断时间，在windows中做个计划任务

Dim blnRun As Boolean



Private Sub Form_Load()

    Timer1.Interval = 60000

    Timer1.Enabled = True

    blnRun = False

    

End Sub



Private Sub Timer1_Timer()

    If Time > "23:00:00" And Not blnRun Then

        blnRun = True

        Call yourfunction

    End If

    

    If Time < "23:00:00" And blnRun Then

        blnRun = False

    End If



    

End Sub

我一般用windows中的计划任务

教你结以前的帖子，怎么加分了？结贴返回一半可用分

我好像结了的 结了2个吧 不知道成功没 我再去研究下楼上的代码 

最好还是，在Windows系统中 建立一个计划任务。

如果是往数据库导入数据，可以用数据库的job来做

不是简单的往数据库中传数据 是2个系统的接口程序，不能用系统任务，动作操作过于复杂

Dim blnRun As Boolean



Private Sub Form_Load()

    Timer1.Interval = 60000

    Timer1.Enabled = True

    blnRun = False

    

End Sub



Private Sub Timer1_Timer()

    If Time > "23:00:00" And Not blnRun Then

        blnRun = True

        Call yourfunction

    End If

    

    If Time < "23:00:00" And blnRun Then

        blnRun = False

    End If



    

End Sub

理论上可以 但是 我导入接口程序太多 不知道并行会有问题吗

你可以把你的过于复杂动作操作编到一个程序里，在系统任务中调用你的程序就可以了

引用 11 楼 jhone99 的回复:

VB codeDim blnRunAsBooleanPrivateSub Form_Load()
    Timer1.Interval=60000
    Timer1.Enabled=True
    blnRun=FalseEnd SubPrivateSub Timer1_Timer()IfTime>"23:00:00"AndNot blnRunThen
        blnRun=Tru¡­

不错！！收藏了~~
我都是在数据库里用MaintenancePlan或者2000里的计划任务实现。

你可以把你的过于复杂动作操作编到一个程序里，在系统任务中调用你的程序就可以了
不要搞这么复杂

通过楼上等方法判断时间——执行代码。在执行代码块结尾加个Timer1.Enabled=false……

是否可行？

引用 21 楼 asdfy 的回复:

通过楼上等方法判断时间——执行代码。在执行代码块结尾加个Timer1.Enabled=false……

是否可行？

如果每天关闭第二天重新运行没有问题，如果不关闭运行，第二天启动timer就有问题了

用定时器控件

引用 1 楼 bestbadgod 的回复:

用操作系统提供的任务功能

最容易实现的办法....

Option Explicit



Private m_NextImportTime As Date



Private Sub Form_Load()

    m_NextImportTime = Date + #11:00:00 PM#

    

    Timer1.Interval = 600

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    If Now() >= m_NextImportTime Then

        m_NextImportTime = m_NextImportTime + 1

        Call Import

    End If

End Sub

还有在 Import 中最好判断一下今天的数据是否已经导入，以对应：执行完导入后、关闭程序、再运行程序的情况。

定时器控件是最简单的，不过可能有点时间偏差。

Option Explicit
Dim dtNextTime As Date

Private Sub Form_Load()
   Timer1.Interval = 500
   dtNextTime = Format(Now, "yyyy-MM-dd ") & "23:00:00"
End Sub

Private Sub Timer1_Timer()
    
    If Now >= dtNextTime Then
        Timer1.Enabled = False
        
        ''sendPCdata '发送上位机数据

        dtNextTime = DateAdd("d", 1, dtNextTime)
       Timer1.Enabled = True
    End If
End Sub

天气太热

Private Sub Form_Load()
    Timer1.Interval = 60000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    static fRuned as boolean
    If Time > "23:00:00" And not fRuned Then
        bruned = True
        Call yourfunction
    End If
End Sub

用timer每秒检测时间按，太占资源，建议使用MS自己的计划任务

引用 11 楼 jhone99 的回复:

VB codeDim blnRunAsBooleanPrivateSub Form_Load()
    Timer1.Interval=60000
    Timer1.Enabled=True
    blnRun=FalseEnd SubPrivateSub Timer1_Timer()IfTime>"23:00:00"AndNot blnRunThen
        blnRun=Tru¡­

可以实现

不知是怎么个导入法，直接在SQL SERVER中加个任务，每天定时运行(如果用的是SQL SERVER的话)

 Timer1.Interval = 1000
If Time = "23:00:00"  The' 这样子定的话只在Time = "23:00:00"的时候执行一次

使用DateDiff来计算时间间隔，不用使用“大于”等符号来判断。

如果是用SQL　我建议直接用SQL代理来实现
如果只用于MS　建议用WINDOWS自带的来实现
方便一点

不知道有没有结贴，不管了，发了再说： 如果把Timer的Inteval属性设得很小（比如1000或更小），是不是很占系统资源？有谁在配置低的机器上试过吗？

楼上别挖坟了

用定时器控件，也可以用计划任务

这坟挖的……
再灌水一次

思路
只是担心错过导入的话可以这样
到达23点的时候执行1次程序  在导入数据的代码中做个记录 全部导入完成后变量变为TRUE
时间间隔1秒3秒都可以  要保证导入数据成功后才改变这个变量  当变量为TRUE状态时 则不再导入数据
当时间过23点之后 变量恢复FLASE状态

每秒钟检查下就行了。

以下是插件提示的，不好意思哦。

ggqiang
等　级：
结帖率：20.00%
该用户人品较差，结贴率不及格。以下是详细信息：
*总发帖：10
*正常结贴：1
*未结贴：8
*无满意结贴：1
*正常结贴率：10.00%
*无满意结贴率：10.00%



论坛签名======================================================================

当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html
http://topic.csdn.net/u/20100428/09/BC9E0908-F250-42A6-8765-B50A82FE186A.html
http://topic.csdn.net/u/20100626/09/f35a4763-4b59-49c3-8061-d48fdbc29561.html

如何给分和结贴？
http://community.csdn.net/Help/HelpCenter.htm#结帖

如何给自己的回帖中也加上签名？
http://blog.csdn.net/q107770540/archive/2011/03/15/6250007.aspx

如何给自己安装一双火眼金睛？
http://blog.csdn.net/sysdzw/archive/2011/04/07/6306619.aspx