两个有关时间的问题

Question

1。怎样求得某天的上周以及本周的日期范围？
2。客户端怎样获取服务端的当前日期？谢谢个位！！

Answer 1

dim cn as connection
1.
假设sunday是第一天（默认）
先用Weekday函数算出某天是星期几
如果是星期三，则用某天减去3得到第一天，同理可得最后一天2.
dim rs as recordset
set cn=new connection
cn.connectstring="........"
cn.open
set rs=new recordset
rs.open "select getdate()",cn,3,3
服务器日期=format(rs.fields(0),"yyyy-mm-dd")
服务器时间=format(rs.fields(0),"Hh:Nn:Ss")

Answer 2

Dim record As New ADODB.Recordset
    record.Open "select getdate() as da", cn
    SDE = record("da")
    record.Close
sde 表示的就是数据库所在机器的时间