本函数计算两个时间的差Function TimeDiff(sBegin, sEnd)
Dim iHourB, iMinuteB, iSecondB, iMiniSecondB
Dim iHourE, iMinuteE, iSecondE, iMiniSecondE
Dim dTimeB, dTimeE, dTimeDiff
Dim iHour, iMinute, iSecond, iMiniSecondiHourB = clng(Left(sBegin, 2))
iMinuteB = clng(Mid(sBegin, 4, 2))
iSecondB = clng(Mid(sBegin, 7, 2))
iMiniSecondB = clng(Mid(sBegin, 10, 4))iHourE = clng(Left(sEnd, 2))
iMinuteE = clng(Mid(sEnd, 4, 2))
iSecondE = clng(Mid(sEnd, 7, 2))
iMiniSecondE = clng(Mid(sEnd, 10, 4))dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB + iMiniSecondB / 1000
dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE + iMiniSecondE / 1000
dTimeDiff = dTimeE - dTimeBiHour = Int(dTimeDiff / 3600)
dTimeDiff = dTimeDiff - iHour * 3600
iMinute = Int(dTimeDiff / 60)
dTimeDiff = dTimeDiff - iMinute * 60
iSecond = Int(dTimeDiff)
dTimeDiff = dTimeDiff - Int(dTimeDiff)
iMiniSecond = dTimeDiffTimeDiff = iHour & "小时" & iMinute & "分钟" & iSecond & FormatNumber(iMiniSecond, 3) & "秒"
End Function
Dim iHourB, iMinuteB, iSecondB, iMiniSecondB
Dim iHourE, iMinuteE, iSecondE, iMiniSecondE
Dim dTimeB, dTimeE, dTimeDiff
Dim iHour, iMinute, iSecond, iMiniSecondiHourB = clng(Left(sBegin, 2))
iMinuteB = clng(Mid(sBegin, 4, 2))
iSecondB = clng(Mid(sBegin, 7, 2))
iMiniSecondB = clng(Mid(sBegin, 10, 4))iHourE = clng(Left(sEnd, 2))
iMinuteE = clng(Mid(sEnd, 4, 2))
iSecondE = clng(Mid(sEnd, 7, 2))
iMiniSecondE = clng(Mid(sEnd, 10, 4))dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB + iMiniSecondB / 1000
dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE + iMiniSecondE / 1000
dTimeDiff = dTimeE - dTimeBiHour = Int(dTimeDiff / 3600)
dTimeDiff = dTimeDiff - iHour * 3600
iMinute = Int(dTimeDiff / 60)
dTimeDiff = dTimeDiff - iMinute * 60
iSecond = Int(dTimeDiff)
dTimeDiff = dTimeDiff - Int(dTimeDiff)
iMiniSecond = dTimeDiffTimeDiff = iHour & "小时" & iMinute & "分钟" & iSecond & FormatNumber(iMiniSecond, 3) & "秒"
End Function
解决方案 »
- 高手看看这是什么问题
- jquery 在页面显示一个日历,但是在日历上只能选择前三十天以内的日期,别的都不能选择
- IE6环境下jquery中转换json对象为字符串?
- 请问各位高手如何获取父框架的ROWS值?
- 求js分页代码
- 如何通过js程序探测当前运行环境中有哪些对象实例可用?
- 在一个页面中使用两个角色脚本,后来总是有一个不起作用?
- 请问学JAVA script和VB script之前有必要学学JAVA和VB吗?
- <iframe>的问题
- 大虾...急!帮忙啊,关于innerText问题!!!!
- 怎么样在5460.net的留言薄写入javascript语言啊?
- 请问各位:如何在关闭浏览器时弹出“是否设为主页”的对话框?在线等待
alert(new Date("2003/11/10")>new Date("2003/11/11"));
</script>
<script language="JavaScript">
function time(){
var a=Main.Ed_STime.value;
var b=Main.Ed_ETime.value;
var miStart = Date.parse(a.replace(/\-/g, '/'));
var miEnd = Date.parse(b.replace(/\-/g, '/'));
var result = (miEnd-miStart)/(1000*24*3600);
if(result<0){
alert("有效时间不能小于发布时间!");
return false;
}
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日期相关明细</title>
<script language="JavaScript">
function check(txt1,txt2){
if(!isDate(txt1.value)){
alert("开始日期格式不对")
return false
}
if(!isDate(txt2.value)){
alert("开始日期格式不对")
return false
}
if(!g(txt1.value,txt2.value)){
alert("结束日期小于开始日期")
return false
}
return true
}
function isDate(str){
var re=/^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/
var r=str.match(re)
if(!r)return false
var d=new Date(r[1],r[3]-1,r[4])
return (d.getFullYear()==r[1]&&d.getMonth()==r[3]-1&&d.getDate()==r[4])
}
function g(d1,d2){
return Date.parse(d1.replace(/-/g,"/"))<Date.parse(d2.replace(/-/g,"/"))
}
</script>
</head><body>
<form name="form1" method="post" >
<table cellSpacing=1 cellPadding=0 border=0 bgcolor="#AAAAAA">
<tr>
<td height="32" bgcolor="#F0F0F0">
起始日期
<input type="text" name="StartDate" maxlength="10">
<td height="32" bgcolor="#F0F0F0">
终止日期
<input type="text" name="EndDate" maxlength="10">
<td bgcolor="#F0F0F0">
<input type="submit" value="检 查 " onClick="return check(StartDate,EndDate)"></td>
</tr>
</table>
</form>
</body>
</html>
var date2="2003/9/1";
var d1=new Date(date1);
var d2=new Date(date2);
if(d1-d2>0){
alert("开始时间大于结束时间");
}else{
alert("相反!");
}