获得周末的日期

Private Sub InsertWeekEnd()

 '----------------------------------------------------
   
    Dim strDate As String      '记录日期
    Dim strNextMonth As String '记录下一个月第一天的日期
    Dim strNextDay As String   '记录明天的日期

    Dim adors As New ADODB.Recordset
              
    '获得当月的第一天
    SQL = "SELECT DATEADD(mm, DATEDIFF(mm, 0, GETDATE()), 0) AS FirstDay"
    adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
    If Not adors.EOF Then strDate = adors!FirstDay
    adors.Close
   
    '获得下个月的第一天
    SQL = "SELECT DATEADD(mm, DATEDIFF(m,0,getdate())+1, 0) as NextMonth"
    adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
    If Not adors.EOF Then strNextMonth = adors!NextMonth
    adors.Close
   
   
    While strDate < strNextMonth
             
        '判断是否周末,如果是则insert进表中
        SQL = "select datename(weekday,'" & strDate & "') as weekday"
        adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
        If Not adors.EOF Then
            If adors!Weekday = "星期六" Or adors!Weekday = "星期日" Then
               
                SQL = "insert into kq_xxrq (date8) values ('" & strDate & "')"
                DB.Execute SQL
            End If
        End If
        adors.Close
                       
        '获得下一天的日期
        SQL = "SELECT DATEADD(day, DATEDIFF(d,0,'" & strDate & "')+1, 0) as Nextday"
        adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
        If Not adors.EOF Then strNextDay = adors!NextDay
        adors.Close
           
        strDate = strNextDay
    Wend
       
    '----------------------------------------------
End Sub