asp虽然已经过时,但是大家却还是在用,给大家分享这篇asp时间函数集锦,需要的都在这里!

原创 2011年03月06日 20:40:00

 

asp虽然已经过时,但是大家却还是在用,给大家分享这篇asp时间函数集锦,需要的都在这里!  需要技术服务和网站建设来我网站看看:烟台网站制作

 

 

<%
'日期函数包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
%>

文章转载自:http://www.gongyingwl.com/html/2011/1/287.htm

ASP瀑布流滚动加载.zip[不是.net]带数据库

  • 2015年12月16日 15:55
  • 265KB
  • 下载

burpsuite 破解方式

burpsuite免费使用一段时间后,就提示license 已过期,查了资料后经过实践发现此方法可行,为此记录下来义工参考:1.在burpsuite 目录下建立.bat文件,将下列信息复制到此文件,修...
  • m0_37617149
  • m0_37617149
  • 2018-03-16 11:16:56
  • 61

第一瓢水:讲述学习的故事,分享学习的快乐---大家一起来

相信每个人的学习都有一段很艰苦的思考过程,共同的研究方向让我们集中在这样一个互动的空间,如果我们把自己学习的体会点点滴滴积累起来,互相学习互相借鉴,一定可以让学习变得更加轻松,快乐和高效。我会试着在这...
  • karen99
  • karen99
  • 2009-09-22 05:59:00
  • 1954

给初学编程者的忠告--(转载)

我始终认为,对一个初学者来说,IT界的技术风潮是不可以追赶的,而且也没有能力去追赶。我时常看 见自己的DDMM们把课本扔了,去卖些价格不菲的诸如C#, VB.Net 这样的大部头,这让我感到非常痛心。...
  • zhoupeihuang
  • zhoupeihuang
  • 2010-02-21 15:44:00
  • 613

一个三十岁男人的婚姻思考-很感人的故事 (转载)

今年30了,结婚4年多了。平心而论,我的婚姻生活很幸福,但是很多时候我似乎并不满足。因为,我妻子是一个没有正式工作的人,现在给别人打工,也不可能有什么发展。文凭也不高,估计再过几年,也就会成为全职的家...
  • kinggaoblog
  • kinggaoblog
  • 2005-10-31 11:39:00
  • 1724

珍藏多年的免费资源第二轮共享:大量android资源以及一些珍藏资源

上一次给大家共享了一些好书资源,这次给大家共享一些好的源码和android项目,都是长期积累的产物,感兴趣的可以下载来研究研究,都是免费的资源,暂时用不着收藏吧;下载地址:点击我下载   大概资源列表...
  • tianyazaiheruan
  • tianyazaiheruan
  • 2013-05-28 09:07:37
  • 4149

一些学习的心得(1)

应该是很久很久都没有来过这里面写东西了。这几天老大做一个关于医疗大数据的项目涉及到到传输的内容。跟我讨论关系windows下和linux下TCP/IP传输协议栈参数修改和协议优化的问题。突然又想回来写...
  • zy627836411
  • zy627836411
  • 2017-10-26 16:52:56
  • 87

Matlab 资源分享

最近需要重新安装Matlab,才发现一个现象:以前的时候,找个 Matlab ,随便百度一下都是下载链接(大天朝,呃呃,你应该明白的),百度云多得很。不知从什么时候开始,百度开始打击这些链接了,大量的...
  • yangguangqizhi
  • yangguangqizhi
  • 2018-01-28 22:41:49
  • 104

读书方法分享

梦游毕业这几年来,专业书读了几百本,经常有同学问我哪有那么多时间读这么多书,所以今天在这里简单的谈谈我的读书方法。 选书: 我选书从来都不是漫无目的的去书店闲逛,而且基本上都是在网上订购的...
  • jxblueice
  • jxblueice
  • 2013-02-27 10:00:24
  • 151

对中国人的人性的一点看法

 刚刚看完了鲁迅的一片演讲《无声的中国》,文章是探讨了文言和白话文的优劣。指出了中国因为无声,是因为文言太难懂,并且是一种官僚文学,只有少部分的人才能懂得。所以这里要引入了改革,推出了白话文。 在鲁迅...
  • tunnel115
  • tunnel115
  • 2008-09-08 08:42:00
  • 486
收藏助手
不良信息举报
您举报文章:asp虽然已经过时,但是大家却还是在用,给大家分享这篇asp时间函数集锦,需要的都在这里!
举报原因:
原因补充:

(最多只允许输入30个字)