Option Compare Database
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '声明系统延时用的API函数SLEEP

'====================================================================
 ' 名称:       delytime
 ' 作用:       延迟系统的秒数
 '
 ' 输入值:      秒 As Integer
 '
 ' 返回类型:
 '
 ' 作者:        LIHAIZHU
 ' 日期:        2007-7-7
 ' 注释:调用方法如:X=delytime(10)
 '
 '====================================================================
Public Function delytime(秒 As Integer) As Integer
Call Sleep(秒 * 1000)
delytime = 秒
End Function