var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31); var Gan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸"); var Zhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"); var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪"); var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至") var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758) var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十') var nStr2 = new Array('初','十','廿','卅',' ') var monthName = new Array("1 月","2 月","3 月","4 月","5 月","6 月","7 月","8 月","9 月","10 月","11 月","12 月");
//====================================== 传回农历 y年的总天数 function lYearDays(y) { var i, sum = 348 for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0 return(sum+leapDays(y)) }
//====================== 中文日期 function cDay(d){ var s;
switch (d) { case 10: s = '初十'; break; case 20: s = '二十'; break; break; case 30: s = '三十'; break; break; default : s = nStr2[Math.floor(d/10)]; s += nStr1[d%10]; } return(s); } var cld;
function drawCld(SY,SM) { var i,sD,s,size; cld = new calendar(SY,SM);
var Today = new Date(); var tY = Today.getFullYear(); var tM = Today.getMonth(); var tD = Today.getDate(); //////////////////////////////////////////////////////////////////////////////
var width = "130"; var offsetx = 2; var offsety = 16;
var x = 0; var y = 0; var snow = 0; var sw = 0; var cnt = 0;
var dStyle; document.onmousemove = mEvn;
//显示详细日期资料 function mOvr(v) { var s,festival; var sObj=eval('SD'+ v); var d=sObj.innerHTML-1;
function changeTZ() { CITY.innerHTML = CLD.TZ.value.substr(6) setCookie("TZ",CLD.TZ.selectedIndex) }
function tick() { var today today = new Date() Clock.innerHTML = today.toLocaleString().replace(/(年|月)/g, "/").replace(/日/, ""); Clock.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value) window.setTimeout("tick()", 1000); }
function setCookie(name, value) { var today = new Date() var expires = new Date() expires.setTime(today.getTime() + 1000*60*60*24*365) document.cookie = name + "=" + escape(value) + "; expires=" + expires.toGMTString() }
function getCookie(Name) { var search = Name + "=" if(document.cookie.length > 0) { offset = document.cookie.indexOf(search) if(offset != -1) { offset += search.length end = document.cookie.indexOf(";", offset) if(end == -1) end = document.cookie.length return unescape(document.cookie.substring(offset, end)) } else return "" } }
<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=CStr(DateAdd("h", 1, TimeAdd)) tSave.innerHTML = "R" Else tSave.innerHTML = "" End If TimeAdd = CStr(TimeAdd) End Function '--> </SCRIPT>
<title> 温度计式样的时间 </title> <SCRIPT language=javascript> var cellwidth=10; // EACH "CELL" WIDTH IN PIXELS var cellheight=10; // EACH "CELL" HEIGHT IN PIXELS var fontsize=11; // FONT SIZE OF THE NUMBERS. SETTING THIS TOO BIG CAUSES UNDESIRED EFFECTS. var fontcolor="080080"; // ENTER ANY HTML OR RGB COLOR CODE var fontstyle="bold"; // ENTER EITHER BOLD, ITALICS, NONE var ; // COLOR OF ACTIVE CELLS var offcolor="lightgrey"; // COLOR OF INACTIVE CELLS