通过使用 SQL Server 的内部函数 GETDATE 来返回 SQL Server 所在的机器的系统日期和时间.
GETDATE
按 datetime 值的 Microsoft® SQL Server™ 标准内部格式返回当前系统日期和时间。
例子：
Public Function GetSQLSvrTime() As Datetime Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset Set rst.ActiveConnection = CurrentProject.Connection rst.Open "SELECT GETDATE() AS SvrTime" GetSQLSvrTime = rst.Fields("SvrTime") End Function |
如果取时间：
| Dim sTime AS String sTime = Format(GetSQLSvrTime(), "Short Time") ' 短时间 |
如果取日期：
| Dim sDate AS String sDate = Format(GetSQLSvrTime(), "Long Date") ' 长日期 |
