| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1062 人关注过本帖
标题:asp获取当月的第一天最后一天和本周周一函数
只看楼主 加入收藏
mnlwj
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2009-3-3
结帖率:75%
收藏
 问题点数:0 回复次数:0 
asp获取当月的第一天最后一天和本周周一函数
获取本月第一天和最后一天日期
获取本月第一天
Dim date1
Date1=date()-day(date()-1)

本月最后一天
法一:先找出下个月,再减一天,就可以得到本月的最后一天了。
然后读取day() 就行了。

法二:其实只要读取month(date())然后自己判断就行了,因为1,3,5,7,8,10,12月都是31天的;4,6,9,11都是30天的,2月是28或29的。只有这么几种情况,直接判断就行了。

法一:
m=month(now()) '当前月
y=year(now()) '当前年
if m=12 then m=1:y=y+1 else m=m+1 '找下个月
nextDate=y & "-" & m & "-" & "1" '下个月第一天
msgbox "本月最后一天是:" & day(nextDate-1)

获取本周第一天的日期

获取本周周一的日期
Dim date1
date1 = date()
date1=date1-weekday(date1)+1

获取上周周日的日期
函数 Date2Chinese
' 功能:获得中文日期的字符串(如一九九八年五月十二日)
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
    Dim num(10)
    Dim iYear
    Dim iMonth
    Dim iDay

    num(0) = "〇"
    num(1) = "一"
    num(2) = "二"
    num(3) = "三"
    num(4) = "四"
    num(5) = "五"
    num(6) = "六"
    num(7) = "七"
    num(8) = "八"
    num(9) = "九"

    iYear = Year(iDate)
    iMonth = Month(iDate)
    iDay = Day(iDate)
    Date2Chinese = num(iYear \ 1000) + _
        num((iYear \ 100) Mod 10) + num((iYear _
        \ 10) Mod 10) + num(iYear Mod _
        10) + "年"
    If iMonth >= 10 Then
        If iMonth = 10 Then
            Date2Chinese = Date2Chinese + _
            "十" + "月"
        Else
            Date2Chinese = Date2Chinese + _
            "十" + num(iMonth Mod 10) + "月"
        End If
    Else
        Date2Chinese = Date2Chinese + _
            num(iMonth Mod 10) + "月"
    End If
    If iDay >= 10 Then
        If iDay = 10 Then
            Date2Chinese = Date2Chinese + _
            "十" + "日"
        ElseIf iDay = 20 Or iDay = 30 Then
            Date2Chinese = Date2Chinese + _
            num(iDay \ 10) + "十" + "日"
        ElseIf iDay > 20 Then
            Date2Chinese = Date2Chinese + _
            num(iDay \ 10) + "十" + _
            num(iDay Mod 10) + "日"
        Else
           Date2Chinese = Date2Chinese + _
           "十" + num(iDay Mod 10) + "日"
        End If
    Else
        Date2Chinese = Date2Chinese + _
        num(iDay Mod 10) + "日"
    End If
End Function
%>

ASP,循环从周一到周日的日期,而且判断那天是周一,用不同的颜色输出?
<%
td=date()
str="一二三四五六日"
for x=1 to 7
if td-weekday(td)+1+x=td then
response.write "<font color=red>周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"</font><br>"
else
response.write "周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"<br>"
end if
next
%>
2011-09-17 23:09
快速回复:asp获取当月的第一天最后一天和本周周一函数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024000 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved