日期:2014-05-17 浏览次数:20978 次
<%
Sub CheckTask
    Application.Lock
    Dim check
    check = False
    '如果Application("task")为空,表示没有进行过操作
    If IsEmpty(Application("task")) Then
        check = True
    End If
    '如果Application("task")值为假,表示没有进行过操作
    If Not check And Not Application("task") Then
        check = True
    End If
    '如果时间没到或已经操作过,则跳出判断
    If Time() < CDate("16:00:00") Or Not check Then
        Exit Sub
    End If
    '执行你期望的操作
    '调用其他过程等
    Application.UnLock
End Sub
%>
------解决方案--------------------
如果是自己机器就可以。schedule能帮你。