上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
判断某月份总天数
编辑:dnawo 日期:2006-12-26
在制作万年历时首先要解决的一个问题是：如何判断某年某月总天数。
1.方法一
由于每月天数的范围为[28,31]，所以可以依次从31到28，利用isdate函数判断是否为合法日期，首次true则该值就为当月天数；当然也可以依次从28到31,同样利用isdate判断是否为合法日期，首次false则该值减1就为当月天数，实现函数分别为：
和
想想哪个更好点^_^
2.方法二
本方法是通过对月份天数进行观察而总结出规律：1,3,5,7,8,10,12为31天；4,6,9,11为20天；2月有时为28天，有时为29天。实现函数为：
3.附date.asp，使用方法一显示指定年份各月份天数，便于观察
1.方法一
由于每月天数的范围为[28,31]，所以可以依次从31到28，利用isdate函数判断是否为合法日期，首次true则该值就为当月天数；当然也可以依次从28到31,同样利用isdate判断是否为合法日期，首次false则该值减1就为当月天数，实现函数分别为：
复制内容到剪贴板
程序代码
程序代码Function Getnum(iyear,imonth)
Dim i,idate
For i=31 to 28 step -1
idate = iyear & "-" & imonth & "-" & i
if isdate(idate) then
Getnum = i
Exit function
End if
Next
End function
Dim i,idate
For i=31 to 28 step -1
idate = iyear & "-" & imonth & "-" & i
if isdate(idate) then
Getnum = i
Exit function
End if
Next
End function
和
复制内容到剪贴板 程序代码
程序代码Function Getnum(iyear,imonth)
Dim i,idate
For i=28 to 32
idate = iyear & "-" & imonth & "-" & i
if not(isdate(idate)) then
Getnum = i - 1
Exit function
End if
Next
End function
Dim i,idate
For i=28 to 32
idate = iyear & "-" & imonth & "-" & i
if not(isdate(idate)) then
Getnum = i - 1
Exit function
End if
Next
End function
想想哪个更好点^_^
2.方法二
本方法是通过对月份天数进行观察而总结出规律：1,3,5,7,8,10,12为31天；4,6,9,11为20天；2月有时为28天，有时为29天。实现函数为：
复制内容到剪贴板 程序代码
程序代码Function Getnum(iYear,iMonth)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
Getnum = 31
Case 4, 6, 9, 11
Getnum = 30
Case 2
If IsDate(iyear & "-" & imonth & "-29") Then
Getnum = 29
Else
Getnum = 28
End If
End Select
End Function
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
Getnum = 31
Case 4, 6, 9, 11
Getnum = 30
Case 2
If IsDate(iyear & "-" & imonth & "-29") Then
Getnum = 29
Else
Getnum = 28
End If
End Select
End Function
3.附date.asp，使用方法一显示指定年份各月份天数，便于观察
复制内容到剪贴板 程序代码
程序代码<%
Rem 取得月份天数
Function Getnum(iyear,imonth)
Dim i,idate
For i=31 to 28 step -1
idate = iyear & "-" & imonth & "-" & i
if isdate(idate) then
Getnum = i
Exit function
End if
Next
End function
Rem 标记不同天数颜色，方便浏览
Function Numcolor(n)
Select case n
case 28
Numcolor="<b><font color=red>" & n & "</font></b>"
case 29
Numcolor="<b><font color=blue>" & n & "</font></b>"
case 30
Numcolor="<b><font color=black>" & n & "</font></b>"
case 31
Numcolor="<b><font color=green>" & n & "</font></b>"
End select
End function
Dim n,j,k
Rem 1.表头显示1月到12月
Response.write "<table width='750' border='0' cellspacing='0' cellpadding='0'>" & vbcrlf
Response.write " <tr>" & vbcrlf
Response.write " <td width='50' height='20' align='center' valign='middle'> </td>" & vbcrlf
For n=1 to 12
Response.write " <td width='50' height='20' align='center' valign='middle'>" & n & "月</td>" & vbcrlf
Next
Response.write " </tr>" & vbcrlf
Rem 2.显示各年份中每月天数，本例年份从500至600
For j=500 to 600
Response.write " <tr>" & vbcrlf
Response.write " <td width='50' height='20' align='center' valign='middle'>" & j & "</td>" & vbcrlf
For k=1 to 12
Response.write " <td width='50' height='20' align='center' valign='middle'>" & Numcolor(Getnum(j,k)) & "</td>" & vbcrlf
Next
Response.write " </tr>" & vbcrlf
Next
Rem 3.表格结尾标识
Response.write "</table>"
%>
Rem 取得月份天数
Function Getnum(iyear,imonth)
Dim i,idate
For i=31 to 28 step -1
idate = iyear & "-" & imonth & "-" & i
if isdate(idate) then
Getnum = i
Exit function
End if
Next
End function
Rem 标记不同天数颜色，方便浏览
Function Numcolor(n)
Select case n
case 28
Numcolor="<b><font color=red>" & n & "</font></b>"
case 29
Numcolor="<b><font color=blue>" & n & "</font></b>"
case 30
Numcolor="<b><font color=black>" & n & "</font></b>"
case 31
Numcolor="<b><font color=green>" & n & "</font></b>"
End select
End function
Dim n,j,k
Rem 1.表头显示1月到12月
Response.write "<table width='750' border='0' cellspacing='0' cellpadding='0'>" & vbcrlf
Response.write " <tr>" & vbcrlf
Response.write " <td width='50' height='20' align='center' valign='middle'> </td>" & vbcrlf
For n=1 to 12
Response.write " <td width='50' height='20' align='center' valign='middle'>" & n & "月</td>" & vbcrlf
Next
Response.write " </tr>" & vbcrlf
Rem 2.显示各年份中每月天数，本例年份从500至600
For j=500 to 600
Response.write " <tr>" & vbcrlf
Response.write " <td width='50' height='20' align='center' valign='middle'>" & j & "</td>" & vbcrlf
For k=1 to 12
Response.write " <td width='50' height='20' align='center' valign='middle'>" & Numcolor(Getnum(j,k)) & "</td>" & vbcrlf
Next
Response.write " </tr>" & vbcrlf
Next
Rem 3.表格结尾标识
Response.write "</table>"
%>
评论: 1 | 引用: 0 | 查看次数: 6988
发表评论
请登录后再发表评论！
