网络编程
位置:首页>> 网络编程>> Asp编程>> 显示某日期所在星期的所有日期asp代码

显示某日期所在星期的所有日期asp代码

作者:亮亮 来源:亮亮博客 发布时间:2008-06-01 16:05:00 

标签:日期,星期,时间

 

<%
dim week_ymd(8)

'测出可以手动设定日期,比如this_ymd=#2008-04-12#
this_ymd=date()

'设置周显示模式为:周一开始,周日结束。
i=weekday(this_ymd,vbMonday)

'计算出该周周一的日期
if i=1 then 
  monday_sign=0
else
  monday_sign=1-i
end if
monday_ymd=dateadd("d",monday_sign,this_ymd)

'循环得出该周的所有日期。
j=1
do while (7-j)>=0
  week_ymd(j)=dateadd("d",j-1,monday_ymd)
  j=j+1 
loop 
%>

显示该周的所有日期:<br>
<% for j=1 to 7%>
周<%=j%>:<%=week_ymd(j)%><br>
<% next %>

也许您看了题目不是很清楚这代码做什么用,为此本站测试了一下(2008年6月1号)

屏幕显示:

显示该周的所有日期:
周1:2008-5-26
周2:2008-5-27
周3:2008-5-28
周4:2008-5-29
周5:2008-5-30
周6:2008-5-31
周7:2008-6-1

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com