最完美的JS万年历（三）
日期：2009-06-21 浏览次数：20866 次
/////////////////////////////////////////////////////////
function changeTZ() {
CITY.innerHTML = CLD.TZ.value.substr(6);
var pos = Math.floor(CLD.TZ.value.substr(0,3));
if(pos<0) pos+=24;
pos*=-10;
world.style.left = pos;
}
function tick() {
var today;
today = new Date();
Clock.innerHTML = today.toLocaleString();
Clock2.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value);
window.setTimeout("tick()", 1000);
}
//-->
</SCRIPT>
<SCRIPT language=VBScript>
<!--
'===== 算世界时间
Function TimeAdd(UTC,T)
Dim PlusMinus, DST, y
If Left(T,1)="-" Then PlusMinus = -1 Else PlusMinus = 1
UTC=Right(UTC,Len(UTC)-5)
UTC=Left(UTC,Len(UTC)-4)
y = Year(UTC)
TimeAdd=DateAdd("n", (Cint(Mid(T,2,2))*60 + Cint(Mid(T,4,2))) * PlusMinus, UTC)
'美国日光节约期间: 4月第一个星日00:00 至 10月最後一个星期日00:00
If Mid(T,6,1)="*" And DateSerial(y,4,(9 - Weekday(DateSerial(y,4,1)) mod 7) ) <= TimeAdd And DateSerial(y,10,31 - Weekday(DateSerial(y,10,31))) >= TimeAdd Then
TimeAdd=DateAdd("h", 1, TimeAdd)
tSave.innerHTML = "R"
tSave.style.color= "Red"
Else
tSave.innerHTML = "R"
tSave.style.color= "White"
End If
TimeAdd = FormatDateTime(Date, 1) & " " & FormatDateTime(TimeAdd,3)
End Function
'-->
</SCRIPT>
<STYLE>.todyaColor {
BACKGROUND-COLOR: aqua
}
</STYLE>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
<BODY onload=initialize() onunload=terminate()>
<SCRIPT language=JavaScript><!--
if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
document.write("<h1>你的浏览器无法执行此程序。</h1>此程序 在 IE4 以後的版本才能执行!!")
//--></SCRIPT>
<DIV id=detail
style="FILTER: shadow(color=#333333,direction=135); HEIGHT: 120px; POSITION: absolute; WIDTH: 140px"></DIV>
<CENTER>
<FORM name=CLD>
<TABLE border=0>
<TBODY>
<TR>
<TD align=middle vAlign=top width=240><FONT size=2
style="FONT-SIZE: 9pt">本地时间</FONT><BR><FONT color=#000080 face=Arial
id=Clock size=2 align="center"></FONT>
<P><FONT id=CITY
style="FONT-FAMILY: '宋体'; FONT-SIZE: 9pt; HEIGHT: 28px; WIDTH: 150px"></FONT><BR><FONT
color=#000080 face=Arial id=Clock2 size=2 align="center"></FONT><BR>
<TABLE style="FONT-FAMILY: Wingdings; FONT-SIZE: 10pt"
function changeTZ() {
CITY.innerHTML = CLD.TZ.value.substr(6);
var pos = Math.floor(CLD.TZ.value.substr(0,3));
if(pos<0) pos+=24;
pos*=-10;
world.style.left = pos;
}
function tick() {
var today;
today = new Date();
Clock.innerHTML = today.toLocaleString();
Clock2.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value);
window.setTimeout("tick()", 1000);
}
//-->
</SCRIPT>
<SCRIPT language=VBScript>
<!--
'===== 算世界时间
Function TimeAdd(UTC,T)
Dim PlusMinus, DST, y
If Left(T,1)="-" Then PlusMinus = -1 Else PlusMinus = 1
UTC=Right(UTC,Len(UTC)-5)
UTC=Left(UTC,Len(UTC)-4)
y = Year(UTC)
TimeAdd=DateAdd("n", (Cint(Mid(T,2,2))*60 + Cint(Mid(T,4,2))) * PlusMinus, UTC)
'美国日光节约期间: 4月第一个星日00:00 至 10月最後一个星期日00:00
If Mid(T,6,1)="*" And DateSerial(y,4,(9 - Weekday(DateSerial(y,4,1)) mod 7) ) <= TimeAdd And DateSerial(y,10,31 - Weekday(DateSerial(y,10,31))) >= TimeAdd Then
TimeAdd=DateAdd("h", 1, TimeAdd)
tSave.innerHTML = "R"
tSave.style.color= "Red"
Else
tSave.innerHTML = "R"
tSave.style.color= "White"
End If
TimeAdd = FormatDateTime(Date, 1) & " " & FormatDateTime(TimeAdd,3)
End Function
'-->
</SCRIPT>
<STYLE>.todyaColor {
BACKGROUND-COLOR: aqua
}
</STYLE>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
<BODY onload=initialize() onunload=terminate()>
<SCRIPT language=JavaScript><!--
if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
document.write("<h1>你的浏览器无法执行此程序。</h1>此程序 在 IE4 以後的版本才能执行!!")
//--></SCRIPT>
<DIV id=detail
style="FILTER: shadow(color=#333333,direction=135); HEIGHT: 120px; POSITION: absolute; WIDTH: 140px"></DIV>
<CENTER>
<FORM name=CLD>
<TABLE border=0>
<TBODY>
<TR>
<TD align=middle vAlign=top width=240><FONT size=2
style="FONT-SIZE: 9pt">本地时间</FONT><BR><FONT color=#000080 face=Arial
id=Clock size=2 align="center"></FONT>
<P><FONT id=CITY
style="FONT-FAMILY: '宋体'; FONT-SIZE: 9pt; HEIGHT: 28px; WIDTH: 150px"></FONT><BR><FONT
color=#000080 face=Arial id=Clock2 size=2 align="center"></FONT><BR>
<TABLE style="FONT-FAMILY: Wingdings; FONT-SIZE: 10pt"
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
