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

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