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

  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