让代理等待一段时间再运行的LotusScript函数

让代理等待一段时间再运行的LotusScript函数

Sub PauseTime(seconds As Integer)
　　　' Wait (loop and do nothing) for "seconds" seconds - used to make sure
　　　' a file system command happened.
　　　Dim start As New notesdatetime("")
　　　Dim finish As New notesdatetime("")
　　　Dim elapse dseconds As Integer
　　　Dim i As Integer
　　　start.setnow
　　　finish.setnow
　　　elapsedseconds = finish.timedifference(start)
　　　While elapsedseconds < seconds
　　　　　　For i = 1 To 500
　　　　　　　　　' do nothing
　　　　　　Next
　　　　　　finish.setnow
　　　　　　elapsedseconds = finish.timedifference(start)
　　　Wend
End Sub