给定日期，如何找到该周的开始日期和结束日期 [英] Given a date, how to find the beginning date and ending date of that week

问题描述

我的ASP页面允许用户选择日期，它将在该日期的那一周显示报告

。


我的问题是什么时候程序查询数据库，我需要知道开始

那个星期的日期和结束日期。


任何想法??

My ASP page allows the user select the date, and it will display the report
during that week of that date.

My question is when the program query database, I need to know the beginning
date and ending date of that week.

Any ideas??

推荐答案

" Matt"写道......

"Matt" wrote...

我的问题是当程序查询数据库时，我需要知道
开始日期和那周结束日期。

My question is when the program query database, I need to know the beginning date and ending date of that week.

<％

''strDate = RS（" Date"）

strDate = Date（）


strWeekdayName = LCase（WeekdayName（工作日（strDate）））

Dim myDaysArray（7）


myDaysArray（0 ）=" monday"

myDaysArray（1）=" tuesday"

myDaysArray（2）=" wednesday"

myDaysArray（ 3）=" thursday"

myDaysArray（4）=" friday"

myDaysArray（5）=" saturday"

myDaysArray （6）=" sunday"


对于intLoop = 0到UBound（myDaysArray）


如果strWeekdayName = myDaysArray（intLoop）那么


如果intLoop = 0那么


strStartOfWeekDate = strDate

strEndOfWeekDate = DateAdd（" d"，6，海峡日期）


ElseIf intLoop = 6然后


strStartOfWeekDate = DateAdd（" d"，-6，strDate）

strEndOfWeekDate = strDate


否则


strStartOfWeekDate = DateAdd（" d"， - intLoop，strDate）

strEndOfWeekDate = DateAdd（" d"，（6-intLoop），strDate）


结束如果


结束如果


下一页


Response.Write"当前日期：" &安培; strDate& "< br>"

Response.Write" Start Of Week Date：" &安培; strStartOfWeekDate& "< br>"

Response.Write" End Of Week Date：" &安培; strEndOfWeekDate& "< br>"

％>


如果您的''周''周一没有开始，请更改值在阵列中，即

：


tueday

周三

星期四

星期五

星期六

星期日

星期一


希望这会有所帮助，哦，如果你运行它，因为它应该工作

罚款，从数据库等的顶部注释你的日期，然后

只需删除response.writes在底部。


问候


Rob

<%
'' strDate = RS("Date")
strDate = Date()

strWeekdayName = LCase(WeekdayName(weekday(strDate)))

Dim myDaysArray(7)

myDaysArray(0) = "monday"
myDaysArray(1) = "tuesday"
myDaysArray(2) = "wednesday"
myDaysArray(3) = "thursday"
myDaysArray(4) = "friday"
myDaysArray(5) = "saturday"
myDaysArray(6) = "sunday"

For intLoop = 0 To UBound(myDaysArray)

If strWeekdayName = myDaysArray(intLoop) Then

If intLoop = 0 Then

strStartOfWeekDate = strDate
strEndOfWeekDate = DateAdd("d", 6, strDate)

ElseIf intLoop = 6 Then

strStartOfWeekDate = DateAdd("d", -6, strDate)
strEndOfWeekDate = strDate

Else

strStartOfWeekDate = DateAdd("d", -intLoop , strDate)
strEndOfWeekDate = DateAdd("d", (6-intLoop), strDate)

End If

End If

Next

Response.Write "Current Date : " & strDate & "<br>"
Response.Write "Start Of Week Date : " & strStartOfWeekDate & "<br>"
Response.Write "End Of Week Date : " & strEndOfWeekDate & "<br>"
%>

If your ''week'' doesn''t start on a Monday, change the values in the array, ie
:

tueday
wednesday
thursday
friday
saturday
sunday
monday

Hope this helps, oh and if you run it as it is at the moment it should work
fine, commented line at the top for your date from the database etc, then
just remove the response.writes at the bottom.

Regards

Rob

Matt写道：

我的ASP页面允许用户选择日期，它将在该日期的那一周显示
报告。

我的问题是当程序查询数据库时，我需要知道那个星期的开始日期和结束日期。

任何想法??

My ASP page allows the user select the date, and it will display the
report during that week of that date.

My question is when the program query database, I need to know the
beginning date and ending date of that week.

Any ideas??

你不觉得这个类型和版本你正在使用的数据库可能是

相关信息（它是）？


你想在vbscript代码中计算这些日期吗？或者在
数据库查询中？


-

Microsoft MVP - ASP / ASP.NET

请回复新闻组。这个电子邮件帐户是我的垃圾邮件陷阱所以我

不经常检查它。如果你必须离线回复，那么删除

NO SPAM

Don''t you think the type and version of database you are using might be
relevant information (it is)?

Do you want to calculate these dates in the vbscript code? or in the
database query?

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don''t check it very often. If you must reply off-line, then remove the
"NO SPAM"

" Bob Barrows"写道......

"Bob Barrows" wrote ...

你不觉得你使用的数据库的类型和版本可能是相关的信息（它是）？
数据库查询？

Don''t you think the type and version of database you are using might be
relevant information (it is)?

Do you want to calculate these dates in the vbscript code? or in the
database query?

Arrghh !!你要发布一个2行的SQL语句现在Bob不是你b $ b，这将完全符合Matt想要的并且会让我看起来很糟糕; o）


Rob

Arrghh!! You''re going to post up a 2 line SQL statement now Bob aren''t you
that will do exactly what Matt wants and will make me look bad ;o)

Rob

这篇关于给定日期，如何找到该周的开始日期和结束日期的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！