谁有网页时钟代码可以走动的可以显示阳历阴历的

2023-02-21 11:44:02html-css08

谁有网页时钟代码可以走动的可以显示阳历阴历的,第1张

给你分两次发吧，粘贴后存为htm页，程序中调用这个htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>万年历查询</TITLE>

<META

content="农历万年历月历节日时区节气八字干支生肖gregorian solarchinese lunarcalendar"

name=keywords>

<META content="gregorian solar calendar and chinese lunar calendar"

name=description>

<STYLE type=text/css>P {

FONT-SIZE: 9ptFONT-FAMILY: 宋体

}

TD {

FONT-SIZE: 9ptFONT-FAMILY: 宋体,simsun

}

A:link {

COLOR: #000000TEXT-DECORATION: none

}

A:visited {

COLOR: #000000TEXT-DECORATION: none

}

A:active {

COLOR: greenTEXT-DECORATION: none

}

A:hover {

COLOR: redTEXT-DECORATION: underline

}

</STYLE>

<!--

/*****************************************************************************

日期资料

*****************************************************************************/

var lunarInfo=new Array(

0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,

0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,

0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,

0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,

0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,

0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,

0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,

0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,

0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,

0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,

0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,

0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,

0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,

0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,

0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)

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 月")

//国历节日 *表示放假日

var sFtv = new Array(

"0101*元旦",

"0214 情人节",

"0308 妇女节",

"0312 植树节",

"0314 国际警察日",

"0315 消费者权益日",

"0323 世界气象日",

"0401 愚人节",

"0407 世界卫生日",

"0501*劳动节",

"0504 青年节",

"0508 红十字日",

"0512 护士节",

"0515 国际家庭日",

"0517 世界电信日",

"0519 全国助残日",

"0531 世界无烟日",

"0601 儿童节",

"0605 世界环境日",

"0606 全国爱眼日",

"0623 奥林匹克日",

"0625 全国土地日",

"0626 反毒品日",

"0701 建党节",

"0707 抗战纪念日",

"0711 世界人口日",

"0801 建军节",

"0908 国际扫盲日",

"0909 毛泽东逝世纪念",

"0910 教师节",

"0917 国际和平日",

"0920 国际爱牙日",

"0922 国际聋人节",

"0927 世界旅游日",

"0928 孔子诞辰",

"1001*国庆节",

"1004 世界动物日",

"1006 老人节",

"1007 国际住房日",

"1009 世界邮政日",

"1015 国际盲人节",

"1016 世界粮食日",

"1024 联合国日",

"1031 万圣节",

"1108 中国记者日",

"1109 消防宣传日",

"1112 孙中山诞辰",

"1114 世界糖尿病日",

"1117 国际大学生节",

"1128 感恩节",

"1201 世界艾滋病日",

"1203 世界残疾人日",

"1209 世界足球日",

"1220 澳门回归",

"1225 圣诞节",

"1226 毛泽东诞辰")

//农历节日 *表示放假日

var lFtv = new Array(

"0101*春节",

"0102*初二",

"0103*初三",

"0104*初四",

"0105*初五",

"0106*初六",

"0107*初七",

"0115 元宵节",

"0505 端午节",

"0707 七夕情人节",

"0815 中秋节",

"0909 重阳节",

"1208 腊八节",

"1223 小年",

"0100*除夕")

//某月的第几个星期几

var wFtv = new Array(

"0520 母亲节")

/*****************************************************************************

日期计算

*****************************************************************************/

//====================================== 传回农历 y年的总天数

function lYearDays(y) {

var i, sum = 348

for(i=0x8000i>0x8i>>=1) sum += (lunarInfo[y-1900] &i)? 1: 0

return(sum+leapDays(y))

}

//====================================== 传回农历 y年闰月的天数

function leapDays(y) {

if(leapMonth(y)) return((lunarInfo[y-1900] &0x10000)? 30: 29)

else return(0)

}

//====================================== 传回农历 y年闰哪个月 1-12 , 没闰传回 0

function leapMonth(y) {

return(lunarInfo[y-1900] &0xf)

}

//====================================== 传回农历 y年m月的总天数

function monthDays(y,m) {

return( (lunarInfo[y-1900] &(0x10000>>m))? 30: 29 )

}

//====================================== 算出农历, 传入日期物件, 传回农历日期物件

// 该物件属性有 .year .month .day .isLeap .yearCyl .dayCyl .monCyl

function Lunar(objDate) {

var i, leap=0, temp=0

var baseDate = new Date(1900,0,31)

var offset = (objDate - baseDate)/86400000

this.dayCyl = offset + 40

this.monCyl = 14

for(i=1900i<2050 &&offset>0i++) {

temp = lYearDays(i)

offset -= temp

this.monCyl += 12

}

if(offset<0) {

offset += temp

i--

this.monCyl -= 12

}

this.year = i

this.yearCyl = i-1864

leap = leapMonth(i) //闰哪个月

this.isLeap = false

for(i=1i<13 &&offset>0i++) {

//闰月

if(leap>0 &&i==(leap+1) &&this.isLeap==false)

{ --ithis.isLeap = truetemp = leapDays(this.year)}

else

{ temp = monthDays(this.year, i)}

//解除闰月

if(this.isLeap==true &&i==(leap+1)) this.isLeap = false

offset -= temp

if(this.isLeap == false) this.monCyl ++

}

if(offset==0 &&leap>0 &&i==leap+1)

if(this.isLeap)

{ this.isLeap = false}

else

{ this.isLeap = true--i--this.monCyl}

if(offset<0){ offset += temp--i--this.monCyl}

this.month = i

this.day = offset + 1

}

//==============================传回国历 y年某m+1月的天数

function solarDays(y,m) {

if(m==1)

return(((y%4 == 0) &&(y%100 != 0) || (y%400 == 0))? 29: 28)

else

return(solarMonth[m])

}

//============================== 传入 offset 传回干支, 0=甲子

function cyclical(num) {

return(Gan[num%10]+Zhi[num%12])

}

//============================== 月历属性

function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) {

this.isToday= false

//国历

this.sYear = sYear

this.sMonth = sMonth

this.sDay = sDay

this.week = week

//农历

this.lYear = lYear

this.lMonth = lMonth

this.lDay = lDay

this.isLeap = isLeap

//干支

this.cYear = cYear

this.cMonth = cMonth

this.cDay = cDay

this.color = ''

this.lunarFestival = ''//农历节日

this.solarFestival = ''//国历节日

this.solarTerms= ''//节气

}

//===== 某年的第n个节气为几日(从0小寒起算)

function sTerm(y,n) {

var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) )

return(offDate.getUTCDate())

}

//============================== 传回月历物件 (y年,m+1月)

function calendar(y,m) {

var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2

var lDPOS = new Array(3)

var n = 0

var firstLM = 0

sDObj = new Date(y,m,1)//当月一日日期

this.length= solarDays(y,m)//国历当月天数

this.firstWeek = sDObj.getDay()//国历当月1日星期几

for(var i=0i<this.lengthi++) {

if(lD>lX) {

sDObj = new Date(y,m,i+1)//当月一日日期

lDObj = new Lunar(sDObj) //农历

lY= lDObj.year //农历年

lM= lDObj.month //农历月

lD= lDObj.day//农历日

lL= lDObj.isLeap //农历是否闰月

lX= lL? leapDays(lY): monthDays(lY,lM) //农历当月最后一天

if(n==0) firstLM = lM

lDPOS[n++] = i-lD+1

}

//sYear,sMonth,sDay,week,

//lYear,lMonth,lDay,isLeap,

//cYear,cMonth,cDay

this[i] = new calElement(y, m+1, i+1, nStr1[(i+this.firstWeek)%7],

lY, lM, lD++, lL,

cyclical(lDObj.yearCyl) ,cyclical(lDObj.monCyl), cyclical(lDObj.dayCyl++) )

if((i+this.firstWeek)%7==0) this[i].color = 'red' //周日颜色

if((i+this.firstWeek)%14==13) this[i].color = 'red' //周休二日颜色

}

//节气

tmp1=sTerm(y,m*2 )-1

tmp2=sTerm(y,m*2+1)-1

this[tmp1].solarTerms = solarTerm[m*2]

this[tmp2].solarTerms = solarTerm[m*2+1]

if(m==3) this[tmp1].color = 'red' //清明颜色

//国历节日

for(i in sFtv)

if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/))

if(Number(RegExp.$1)==(m+1)) {

this[Number(RegExp.$2)-1].solarFestival += RegExp.$4 + ' '

if(RegExp.$3=='*') this[Number(RegExp.$2)-1].color = 'red'

}

//月周节日

for(i in wFtv)

if(wFtv[i].match(/^(\d{2})(\d)(\d)([\s\*])(.+)$/))

if(Number(RegExp.$1)==(m+1)) {

tmp1=Number(RegExp.$2)

tmp2=Number(RegExp.$3)

this[((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek].solarFestival += RegExp.$5 + ' '

}

//农历节日

for(i in lFtv)

if(lFtv[i].match(/^(\d{2})(.{2})([\s\*])(.+)$/)) {

tmp1=Number(RegExp.$1)-firstLM

if(tmp1==-11) tmp1=1

if(tmp1 >=0 &&tmp1<n) {

tmp2 = lDPOS[tmp1] + Number(RegExp.$2) -1

if( tmp2 >= 0 &&tmp2<this.length) {

this[tmp2].lunarFestival += RegExp.$4 + ' '

if(RegExp.$3=='*') this[tmp2].color = 'red'

}

//黑色星期五

if((this.firstWeek+12)%7==5)

this[12].solarFestival += '黑色星期五 '

//今日

if(y==tY &&m==tM) this[tD-1].isToday = true

}

//====================== 中文日期

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)

if(SY>1874 &&SY<1909) yDisplay = '光绪' + (((SY-1874)==1)?'元':SY-1874)+'年'

if(SY>1908 &&SY<1912) yDisplay = '宣统' + (((SY-1908)==1)?'元':SY-1908)+'年'

if(SY>1911 &&SY<1950) yDisplay = '民国' + (((SY-1911)==1)?'元':SY-1911)+'年'

if(SY>1949) yDisplay = ' '

常熟有卡特卖吗苏州市-丝颂(常熟卡特店)地图，公交，地址，电话

丝颂(常熟卡特店)，位于江苏省苏州市常熟市虞山镇珠江东路97-5号，电话:0512-52160999，搜狗地图为您提供丝颂(常熟卡特店)的位置、地图、公交查询、自驾路线查询、周边查询等服务，并支持将...

搜狗地图

【常熟卡特机电销售有限公司】常熟卡特机电销售有限公司电话，常熟卡特机电销售有限公司地址_360地图

常熟卡特机电销售有限公司位于苏州市，查询常熟卡特机电销售有限公司电话，查询常熟卡特机电销售有限公司地址，查看关于常熟卡特机电销售有限公司的用户评论，查询常熟卡特机电销售有限公司附近...

360搜索

常熟市虞山镇卡特美容美发店-爱企查

爱企查为您提供常熟市虞山镇卡特美容美发店2022年企业最新的工商信息、官网、电话、地址、邮箱网址、风险、发展状况、股东法人高管、商标、融资、专利等多维度企业信息,让您更轻松的了解常熟市...

爱企查2022-09-29

其他人还搜了

常熟自行车卡在哪办理

常熟卡行物流

常熟社会保障卡

常熟常客隆卡

常熟市民卡怎么办理

常熟苏州园林卡

常熟市名卡丢了怎么办

常熟压膜卡生产

常熟卡特二手小型挖掘机平台-中国路面机械网

找常熟卡特二手小型挖掘机平台，卡特挖掘机，小型卡特二手挖掘机价格表，二手神钢小型挖掘机平台，蒙阴二手小型卡特挖掘机上中国路面机械网，本网站为你提供常熟卡特二手小型挖掘机平台产品信息...

中国路面机械网

团购攻略-轻攻略

常熟金茂智慧科学城不限购不限售首套二套三成首付金茂品牌半小时沪宁杭经济生活圈国家级经济开发区昆承湖CBD历史文化名城百强县TOP5悦湖雅苑（悦系）【均价】1.85w/㎡【物业】金茂物业【总户数...

轻攻略

常熟逛街卡-衣食住行玩常熟一卡通-微信公众号推荐-微号推

常熟逛街网微信,常熟逛街网微信是常熟最大的打折优惠微信,为了方便常熟各大品牌商户与常熟市民之间沟通交易的重要平台！一切以创造财富和诚实守信为前提,打造一座具有魅力的网上常熟商城。

微号推

常熟有买卖二手游戏卡的电玩店吗_常熟吧_百度贴吧

常熟有买卖二手游戏卡.常熟有买卖二手游戏卡的电玩店吗黑不黑

百度贴吧2018-01-23

常熟各大市民卡服务网点汇总（地址+咨询电话+上班时间）苏州本地宝

2、市民卡服务中心、常熟市旅游集散中心工作时间为周一至周日，政务服务中心工作时间为周一至周六，其他网点工作时间为周一到周五（工作日），节假日以网站公告为准！服务网点提供功能：

本地宝2018-11-01

常熟市民卡

请使用社会保障卡就医结算 12-22 市民卡走进社区—泰安及百盛.06-09 建党百年不忘初心-庆祝建党1.06-09 喜迎新生服务校园—常熟市民.09-17 市政府办公室、市大数据局召开.07-02 常熟市民卡走进...

www.csssmk.com

银通卡

常熟市三禾计量设备厂. 金字塔*中级课程. 上海华立电表厂是专业生产系列. 凯文*际时尚品牌管理咨询培训机. 徐州恒发玻璃制品有限公司网站. 站点首页-#961*广州市宇鸿电子科技有限公司汽. ...

同盟国2022-11-15

推荐阅读

热门文章

最新发布

标签列表

谁有网页时钟代码 可以走动的 可以显示阳历阴历的

给您推荐相同类型的内容：

谁有网页时钟代码可以走动的可以显示阳历阴历的