7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zhhrlzm 2001-07-18
- 打赏
- 举报
Public Function GetSysDate() As Date
On Error Resume Next
Dim str1 As String
Dim ado1 As New ADODB.Recordset
str1 = "select distinct sysdate from table1"
ado1.Open strSQLa, ZhcxCon
GetSysDate = CDate(Format(ado1(0).Value, "yyyy-mm-dd HH:NN"))
Set ado1 = Nothing
End Function
''ZhcxCon(你的连接)
On Error Resume Next
Dim str1 As String
Dim ado1 As New ADODB.Recordset
str1 = "select distinct sysdate from table1"
ado1.Open strSQLa, ZhcxCon
GetSysDate = CDate(Format(ado1(0).Value, "yyyy-mm-dd HH:NN"))
Set ado1 = Nothing
End Function
''ZhcxCon(你的连接)
