How to Get Sql sever 2000 WeekFirstDay and WeekLastDay...

weixin_33937913

于 2006-09-22 23:09:00 发布

阅读量67

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sesexxoo/archive/2006/09/22/6190383.html

本文介绍了一种使用 SQL 语句来获取当前周的第一天和最后一天的具体日期的方法。通过 DATEADD 和 DATEDIFF 函数组合，可以轻松地实现这一功能。

Public Function GetWeekFirstDay() As String
'Last week day set by Sunday

            'Sunday is week first day -1
            'Monday is week first day 0
            '......1,2,3,4
            Dim sql As String
            sql = "SELECT convert(varchar(10),DATEADD(wk, DATEDIFF(wk,0,getdate()), -1),121) as WeekFirstDay "
            Dim ds As DataSet = iobj_sql.GetRowsByQuery(sql)
            Return ds.Tables(0).Rows(0).Item("WeekFirstDay")

End Function

        Public Function GetWeekLastDay()
            'Last week day set by Saturday
            Dim sql As String
            sql = "SELECT convert(varchar(10),DATEADD(wk, DATEDIFF(wk,0,getdate()), -1)+6,121) as WeekFirstDay "
            Dim ds As DataSet = iobj_sql.GetRowsByQuery(sql)
            Return ds.Tables(0).Rows(0).Item("WeekFirstDay")
        End Function

转载于:https://www.cnblogs.com/sesexxoo/archive/2006/09/22/6190383.html