日期:2013-04-11  浏览次数:20459 次

Function getServerTime() As Date
     getServerTime = CDate(CurrentProject.Connection.Execute("SELECT GETDATE()")(0).Value)
End Function