logo

哈达波斯网|专注网站

ASP

Asp获取日期周期问题

ASP  2020/3/14 9:39:29  管理员  

有个小伙伴不会获取周期。比如说上周二。到这周二。

或者上上周几到这周周几,总直就是一个固定的周期,他不会获取

然后根据网上查到的一些资料。写的获取周期函数

具体参考如下。这个是周二到周二。至于其他周期。自己改下参数就行了

<%
'上一周
Function up_week(str)
	cd = DateAdd("ww",-1 , Date())
	up_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'当前周
Function this_week(str)
	cd = Date()
	this_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'下一周
Function next_week(str)
	cd = DateAdd("ww",1 , Date())
	next_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'自己设定后退周
'str=那周 -向前的周。 + 向后的周 
'str1=周几 1234567
Function str_week(str,str1)
	cd = DateAdd("ww",str , Date())
	str_week=DateAdd("d", 1- Weekday(cd, 2)+str1, cd) 
End Function

if Weekday(date(), 2)>=2 then%>

    过了周二获取当前周期:<%=str_week(-1,1)%> --<%=this_week(1)%>
    
<%else%>

     没过周二获取上个周期:<%=str_week(-2,1)%> --<%=str_week(-1,1)%>
    
<%end if%>


'函数名称:isThisWeek
'功能说明:判断date1是否属于当前星期
'返回值:true(属于);false(不属于)
'参数说明:
'date1:被判断的日期
Function isThisWeek(date1)
    Dim mon_date
    mon_date = dateadd("d",-weekday(date(),2)+1,date())
    If datediff("d",mon_date,date1,2)>=0 and datediff("d",mon_date,date1,2)<=6 then
        isThisWeek = true
    Else
        isThisWeek = false
    End if
End Function


Dim date7
date7 = "2021-03-05 11:02:02"
If isThisWeek(date7) then
    Response.write "属于本周"
Else
    Response.write "不属于本周"
End if


网站首页  | 最新公告  | 漏洞修补  | 网站模板  | 知识文档  | 与我联系
Copyright © 2015 jlasp.com All Rights Reserved.
哈达波斯网|专注网站 版权所有
地址:吉林省吉林市昌邑区 联系QQ:383612004 联系人:董先生
未经本站授权,禁止复制或建立镜像,内容仅用于学习参考!
ICP备案号:吉ICP备15000891号-1 | 

吉公网安备 22020202000301号