sql中的日期时间处理

Sub 测试()
    
    Dim Con As Object

    Set Con = CreateObject("ADODB.Connection")

    Con.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=‘Excel 12.0;hdr=no;imex=1‘;Data Source=" & ActiveWorkbook.FullName

    
    Dim sql As String, sql_1 As String, t As String, rs As Object
    
    Dim monthArr As New Collection, i, n, s_month
    
    t = "Sheet10" & "$"
    
    sql = " format(f1,‘yyyy-mm-dd‘) as 结果1, left(f1,10) as 结果2, datediff(‘d‘,f1,now) as 结果3 "
    
    sql = " SELECT " & sql & " from [" & t & "] "
    
    Set rs = Con.Execute(sql)
    
    For i = 0 To rs.fields.Count - 1
        Cells(1, i + 3) = rs.fields(i).Name
    Next
    
    Cells(2, 3).CopyFromRecordset rs

    rs.Close: Set rs = Nothing
    
    Con.Close: Set Con = Nothing

End Sub