 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'日期函数包DataPackage %> <script language="javascript"> function IsDateString(Str) <!-- { // 校验是否YYYY-MM-DD格式的日期型数据，返回值为True成功，否则返回False // 假如传递的是空字符串则返回False // 定义分隔符 var sSplit="-" var iYearPos=Str.indexOf(sSplit); if (iYearPos==-1) return false; var iMonthPos=Str.indexOf(sSplit,iYearPos+1); if (iMonthPos==-1) return false; // 分离出年份 sYear=Str.substr(0,iYearPos); // 分离出月份 sMonth=Str.substr(iYearPos+1,iMonthPos-iYearPos-1); //月份长度为二 if (sMonth.length!=2) return false; if (sMonth.substr(0,1)=="0") sMonth=sMonth.substr(1); // 分离出日期 sDay=Str.substr(iMonthPos+1); //日长度为二 if (sDay.length!=2) return false; if (sDay.substr(0,1)=="0") sDay=sDay.substr(1); // 年份是否数字？ if (isNaN(sYear)) return false; var iYear=parseInt(sYear); // 年份是否整数？ if (sYear!=iYear) return false; // 年份是否在1000-9999之间？ if (iYear<1000 || iYear>9999) return false; // 月份是否数字？ if (isNaN(sMonth)) return false; var iMonth=parseInt(sMonth); // 月份是否整数？ if (sMonth!=iMonth) return false; // 月份是否在1-12之间？ if (iMonth<1 || iMonth>12) return false; // 日期是否数字？ if (isNaN(sDay)) return false; var iDay=parseInt(sDay); // 日期是否整数？ if (sDay!=iDay) return false; // 日期是否在1-31之间？ if (iDay<1 || iDay>31) return false; if (iDay<29) return true; // 日期数据是否合法的？ switch (iMonth) { case 1: if (iDay>31) return false; break; case 2: if (IsLeapYear(iYear)) { if (iDay>29) return false; } else { if (iDay>28) return false; } break; case 3: if (iDay>31) return false; break; case 4: if (iDay>30) return false; break; case 5: if (iDay>31) return false; break; case 6: if (iDay>30) return false; break; case 7: if (iDay>31) return false; break; case 8: if (iDay>31) return false; break; case 9: if (iDay>30) return false; break; case 10: if (iDay>31) return false; break; case 11: if (iDay>30) return false; break; case 12: if (iDay>31) return false; } return true; } function IsLeapYear(Y) { // 年份是否为闰年 if (Y % 4 !=0) return false; if (Y % 400 == 0) return true; if (Y % 100 == 0) return false; } --> </script> <% \\\'********************** \\\'目的：将日期转变成标准日期字符串 \\\'输入：日期 \\\'输出：日期字符串，如：2002-12-22 \\\'********************** Function getdatestr(ddate) dim strtmp getdatestr = DatePart("yyyy",ddate) strtmp = trim(DatePart("m",ddate)) if len(strtmp)=1 then strtmp="0" & strtmp getdatestr = getdatestr & "-" & strtmp strtmp = trim(DatePart("d",ddate)) if len(strtmp)=1 then strtmp="0" & strtmp getdatestr = getdatestr & "-" & strtmp End Function \\\'********************** \\\'********************** \\\'目的：将日期时间转变成标准日期时间字符串 \\\'输入：日期时间 \\\'输出：日期时间字符串，如：2002-12-22 \\\'********************** Function gettimestr(ddate) dim strtmp gettimestr = DatePart("yyyy",ddate) strtmp = trim(DatePart("m",ddate)) if len(strtmp)=1 then strtmp="0" & strtmp gettimestr = gettimestr & "-" & strtmp strtmp = trim(DatePart("d",ddate)) if len(strtmp)=1 then strtmp="0" & strtmp gettimestr = gettimestr & "-" & strtmp gettimestr = gettimestr & " " & trim(DatePart("h",ddate)) gettimestr = gettimestr & ":" & trim(DatePart("m",ddate)) End Function \\\'********************** \\\'********************** \\\'目的：计算一月的总天数 \\\'输入：年，月 \\\'输出：天数 \\\'********************** function getmonthdays(myyear,mymonth) dim thismonthfirday,nextmonthfirday \\\'取得当前年月的1日日期 thismonthfirday=myyear & "-" & mymonth & "-1" \\\'取得下个月1日的日期 nextmonthfirday=dateadd("m",1,thismonthfirday) \\\'取得当前月的天数 getmonthdays=DateDiff("d",thismonthfirday,nextmonthfirday) end function \\\'********************** \\\'********************** \\\'目的：返回格式化日期 \\\'输入：任何类型参数 \\\'输出：格式化后的日期 \\\'********************** Function FormatDateEx(D) dim varTemp if IsDate(D) then varTemp="\\\'" & D & "\\\'" else varTemp="NULL" end if FormatDateEx=varTemp End Function \\\'********************** \\\'DatePackage End %> 返回类别: 教程 上一教程: REDIM 语句 下一教程: 用ASP实现QQ在线查询 您可以阅读与"ASP中的日期函数"相关的教程: · 功能异常全面的日期处理函数 · ASP中的函数应用方式及应用举例(一) · asp中的一个希奇的函数 · ASP中的函数应用方式及应用举例(二) · ASP应用中的应用函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
