UC知道vb计算本周，本月的日期
来源：百度知道 编辑：UC知道 时间：2024/07/06 09:52:44
我在做一个订单公开，里面有个关于日期的搜索，比如说本日订单，本周订单，本月订单。
但是关于时间日期这边不知道到要怎么计算，就是获取本周的日期
用什么函数可以直接计算出来，麻烦高手解答
谢谢啦！
因为我的分数不多，所以能给的也就只有一点！o(∩_∩)o...
获取本周的日期就是：
比如今天的星期四，那么我要的到星期一到星期四的日期：2009-12-7到2009-12-10
如果我只要得到本周（星期一）的日期和本月（12-01）的日期呢？
Select Case c1
Case "0"
ls_where1 = " 1 = 1 " '恒等条件
Case "1"
date1=date()
ls_where1 = " orderdate > '"&CStr(date1)&"' " '等于当天的时间
Case "7"
date1 = DateAdd("d",-7,date)
ls_where1 = " orderdate > '"&CStr(date1)&"' " '当天的日期大于本周星期一的日期
Case "30"
date1 = DateAdd("d",-30,date)
ls_where1 = " orderdate > '"&CStr(date1)&"' " '当天的日期大于本月1号的日期
End Select
我是这样写的，时间值一直都不对，菜鸟啊！麻烦各位高手说下关系点！谢谢！
谢谢大侠们的帮忙
我发现是我自己把问题复杂话了
我是要
但是关于时间日期这边不知道到要怎么计算，就是获取本周的日期
用什么函数可以直接计算出来，麻烦高手解答
谢谢啦！
因为我的分数不多，所以能给的也就只有一点！o(∩_∩)o...
获取本周的日期就是：
比如今天的星期四，那么我要的到星期一到星期四的日期：2009-12-7到2009-12-10
如果我只要得到本周（星期一）的日期和本月（12-01）的日期呢？
Select Case c1
Case "0"
ls_where1 = " 1 = 1 " '恒等条件
Case "1"
date1=date()
ls_where1 = " orderdate > '"&CStr(date1)&"' " '等于当天的时间
Case "7"
date1 = DateAdd("d",-7,date)
ls_where1 = " orderdate > '"&CStr(date1)&"' " '当天的日期大于本周星期一的日期
Case "30"
date1 = DateAdd("d",-30,date)
ls_where1 = " orderdate > '"&CStr(date1)&"' " '当天的日期大于本月1号的日期
End Select
我是这样写的，时间值一直都不对，菜鸟啊！麻烦各位高手说下关系点！谢谢！
谢谢大侠们的帮忙
我发现是我自己把问题复杂话了
我是要
Private Sub Command2_Click()
b = Weekday(Now) - 1
If b = 0 Then b = 7
For i = 1 To b
a = a + "礼拜" & i & " " & "日期" & Date - b + i & vbCrLf
Next
MsgBox a, vbInformation, "日期"
End Sub
加了个判断修改了下这个周日就不会错了
什么叫“获取本周的日期”？？ VB 里有一个 NOW 函数，得到当前日期时间，你可以 format 成 yyyy-MM-dd 这种格式的，你说的是这个么？？
Dim i As Integer
Dim W As Integer
W = Weekday(Date)
For i = 2 To W
Text1.Text = Text1.Text & Format(Date + i - W, "yyyy-MM-dd") & vbCrLf
Next
如果当天是星期天的话没有显示，实在不知道你想第一天是星期天还是星期一，方法都类似，自己改吧
select * from table where date between (getdate()-((datepart(weekday,getdate())+5)% 7)）) and getdate()
datepart(weekday,'2009-12-12')函数是获取周信息，返回一个整数，
1表示周日，2表示周一，以此类推