|
 
- UID
- 2031431
- 威望
- 27 点
- 金钱
- 2 金币
- 点卡
- 10 点
|
1#
发表于 2004-6-9 09:25
| 只看该作者
[转帖]简单进行perl时间计算的代码
[html]<html>
<head>
<title>简单获取PERL的time()值</title>
<style>
body,select {font-size:12px}
</style>
</head>
<body>
<script>
var y,m,d,th,tm,ts,time;
var ny=0,nm=0,nd=0,nth=0,ntm=0,nts=0;
var cy=0,cm=0;
var month=Array(31,28,31,30,31,30,31,31,30,31,30,31);
function Count(){
y=document.all.year.value-1970;
cy=Math.round(y/4);
y=(y < 0)?0:y;
cm=document.all.month.value;
cm=(cm > 12)?12:cm;
cm--;
m=0;
for(i=0;i<cm;i++){
m+=month;
}
d=document.all.day.value;
d=(d > 31)?12:d;
d=(cm == 1 && d > 28)?28:d;
d--;
th=document.all.hour.value;
th=(th > 24)?24:th;
th-=8;
tm=document.all.min.value;
tm=(tm > 60)?60:tm;
ts=document.all.sec.value;
ts=(ts > 60)?60:ts;
ny=(y*365)+cy
ny=ny*24*60*60;
nm=m*24*60*60;
nd=d*60*60*24;
nth=th*60*60;
ntm=tm*60;
time=0;
time +=ny;
time +=nm;
time +=nd;
time +=nth;
time +=ntm;
time=(time < 0)?0:time;
document.all.time.value=time+"+"+ts;
}
</script>
<select name="year" onChange="Count()">
<script>
for(i=1970;i<2008;i++){
document.write('<option value="'+i+'">'+i+'年</option>');
}
</script>
</select>
<select name="month" onChange="Count()">
<script>
for(i=1;i<13;i++){
document.write('<option value="'+i+'">'+i+'月</option>');
}
</script>
</select>
<select name="day" onChange="Count()">
<script>
for(i=1;i<32;i++){
document.write('<option value="'+i+'">'+i+'日</option>');
}
</script>
</select>
<select name="hour" onChange="Count()">
<script>
for(i=0;i<24;i++){
document.write('<option value="'+i+'">'+i+'时</option>');
}
</script>
</select>
<select name="min" onChange="Count()">
<script>
for(i=0;i<60;i++){
document.write('<option value="'+i+'">'+i+'分</option>');
}
</script>
</select>
<select name="sec" onChange="Count()">
<script>
for(i=0;i<60;i++){
document.write('<option value="'+i+'">'+i+'秒</option>');
}
</script>
</select> = <input value="0" name="time" size="20">
</body>
</html>[/html] |
哈哈哈！！！！你的IP是不是 ？我都知道了！！！ |
|
