木子屋
 

标题: 判断某个日期是否属于本周

作者: dnawo

日期: 2007-03-12 05:27 PM

分类: Web编程

内容: 函数如下：
复制内容到剪贴板 程序代码'函数名称：isThisWeek
'功能说明：判断date1是否属于当前星期
'返回值：true(属于)；false(不属于)
'编写：dnawo(http://www.mzwu.com/)
'参数说明：
'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 = #2007-03-28#
If isThisWeek(date7) then
    Response.write "属于本周"
Else
    Response.write "不属于本周"
End if
%>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms

标题: 判断某个日期是否属于本周

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms