情人節網頁代碼

發布時間: 2021-12-04 07:50:10

㈠情人節給女朋友編寫一個程序，用VB可以編什麼啊

'Form1.Visible改為False，另外添加一個Timer，Interval設為1
'以下代碼直接復制到代碼框就好
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
MsgBox "你真的要打開這個文件？……", vbInformation, "TZW Computer SOHO"
MsgBox "不要再打開啦！" + String(2, Chr(13)) + "裡面可能會有……那個東西的哦！", vbInformation, "TZW Computer SOHO"
MsgBox "你真的要千萬想清楚才好啊……" + String(2, Chr(13)) + "不然的話……", vbCritical, "TZW Computer SOHO"
Form1.Hide
Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "先別走那麼快，賣段廣告再說嘛…………：" + String(2, Chr(13)) + "精品軟體，盡在 TZW Computer SOHO！" + String(2, Chr(13)) + "謝謝捧場！謝謝捧場！ ——TZW :)", vbInformation, "請等一下，就一下就好……"
End Sub

Private Sub Timer1_Timer()
Static abc As Integer
SetCursorPos Rnd * Screen.Width / Screen.TwipsPerPixelX, Rnd * Screen.Height / Screen.TwipsPerPixelY
abc = abc + 1
If abc = 500 Then MsgBox "我都說過不要打開的啦！" + String(2, Chr(13)) + "你又不相信~~~~~~~~~" + String(2, Chr(13)) + "你看現在就變成這個樣子了！唉~~~~~~~~~~~", vbOKOnly, "TZW's Joke": Unload Form1
End Sub

㈡送給女生用得C++ 情人節送的可以diy的源代碼拜託了

你還是直接送玫瑰花吧，這樣來得實際些，也容易被大多女生認可，除非你送的女生比較特別。

㈢情人節留言代碼

半夜跑到他家給他禮物

㈣求顯示農歷的網頁代碼/.

<HTML><HEAD><TITLE>智勇之家_新萬年歷</TITLE>
<META
content="農歷; 陽歷; 月歷; 節日; 時區; 節氣; 八字; 干支; 生肖; gregorian solar; chinese lunar; calendar;"
name=keywords>
<META content=All name=robots>
<META content="gregorian solar calendar and chinese lunar calendar"
name=description>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>

<SCRIPT language=JavaScript>

</SCRIPT>

<SCRIPT language=VBScript>

</SCRIPT>

<STYLE>.todyaColor {
BACKGROUND-COLOR: aqua
}
</STYLE>

<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>

<BODY leftMargin=0 onload=initial() topMargin=0>

<div align="center">
<center>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%">
<p align="center"><img src="../logo/logo7.gif" width=770><BR>
<img src="../logo/logo.gif" width="230" height="90"> <img src="../logo/logo11.gif" width="510" height="84"></a></p>
</td>
</tr>
</table>
</center>
</div>

<SCRIPT language=JavaScript>

</SCRIPT>

<SCRIPT language=JavaScript>

lck=0;
function r(hval)
{
if ( lck == 0 )
{
document.bgColor=hval;
}
}
</SCRIPT>

<DIV id=detail style="POSITION: absolute"></DIV>
<CENTER>
<FORM name=CLD>
<TABLE>
<TBODY>
<TR>
<TD align=middle vAlign=top><BR><FONT size=2
style="FONT-SIZE: 9pt">智勇之家時間：</FONT><BR><FONT color=#000080 face=Arial
id=Clock size=4 align="center"></FONT>
<P><!--時區 *表示自動調整為日光節約時

㈤七夕情人節QQ空間留言代碼_七夕情侶QQ空間留言代碼

[M][B]
[fts=4][ftc=#FF6666][ftf=Webdings]l[/ft][/ft][/ft]
[fts=5][ftc=#FF33FF][ftf=Webdings]l[/ft][/ft][/ft]
[ftc=#6600CC]˙·．.．·˙`˙·．.[ftc=#6633FF]★[/ft].．·˙`˙·．.．·˙·[/ft]
[ftc=#FFFFFF][ftc=#FFFF00]星星[/ft]落下要[ftc=#0066FF]3小時[/ft]，
地球[ftc=#0066FF]自轉[/ft]一次要1天，
愛一個人要[ftc=#666600]一輩子[/ft]，
但一句[ftc=#FF33FF]貼心的話[/ft]只需一秒：[/ft]
[ftc=#6600CC]˙·．..．·˙`˙·．.．·˙·[ftc=#6633FF]★★[/ft]˙·．.．·˙`˙·．..．·˙˙[/ft]
[ftc=#FF0000]我會好好照顧一被子！[/ft]
[ftc=#FFFFFF]七夕情人節快樂[/ft]
[ftc=#FFFF00][fts=5][ftf=Webdings]l[/ft][/ft][fts=4][ftf=Webdings]l[/ft][/ft][fts=2][ftf=Webdings]l[/ft][/ft][fts=4][ftf=Webdings]l[/ft][/ft][fts=5][ftf=Webdings]l[/ft][/ft][/ft]
[ftc=#FF33FF][fts=6][ftf=Webdings]l[/ft][/ft][/ft][/B]

七夕情人節QQ空間留言代碼樣式：

QQ空間留言如何加代碼：

1、打開所要留言的好友QQ空間，

2、點擊好友留言板；

3、進入到發表留言窗口，在窗口上面，點擊「高級模式」輸入要發表的留言代碼

4、點發布按鈕，就可以了。

㈥看到的朋友情人節快樂：我的網站發布的信息要分享到新浪人人網 QQ空間，有什麼好的代碼

這個需要你網站和新浪、人人、QQ等網站有合作的
他們給你一個介面，你按介面參數設置你的鏈接，這樣到他們的網站上後，就可以顯示來自XX了

㈦七夕情人節要到了，悲催的程序員想做個網站給女朋友一個驚喜，請給個創意吧！

首先我想說，你存來有你們所有在一起自的相片嗎?然後你們的點點滴滴，你都有記錄嗎？還有她最喜歡什麼，討厭什麼，你都記在心裡嗎？你把這些全部記錄起來，用你的代碼展示出來，或許是個不錯的idea。當然少不了花這個媒體。
還有七夕就是牛郎織女嘛。之間的艱辛，那個信念最好也能體現出來！
還有雖然做了這個網站，重點還是要推出來，是不是，要不大家都看不到，那怎麼能讓人給你作證呢！

㈧ 8.9在情人節的代碼是什麼意思呢

就是今天8月9號啊！農歷七月初七……

㈨幫我改改代碼,網頁

<html>
<head><title>萬年歷查詢</title>
<meta content="農歷; 陽歷; 月歷; 節日; 時區; 節氣; 八字; 干支; 生肖; gregorian solar; chinese lunar; calendar;" name=keywords>
<meta content=All name=robots>
<meta content="gregorian solar calendar and chinese lunar calendar" name=description>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<style type=text/css>

p {fONT-FAMILY: 宋體; FONT-SIZE: 9pt;line-height:12pt:color:#000000}

TD {fONT-FAMILY: 宋體,simsun; FONT-SIZE: 9pt}

a:link{ color:#000000; text-decoration:none}
a:visited{COLOR: #000000; TEXT-DECORATION: none}
a:active{color:green;text-decoration:none}
a:hover{color:red;text-decoration:underline}
</style>

<script language=JavaScript>
<!--
/*****************************************************************************
日期資料
*****************************************************************************/

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,0x0a5b0,0x14573,0x052b0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b6a0,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,
0x14b63);

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("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");

//國歷節日 *表示放假日
var sFtv = new Array(
"0101*元旦節",
"0202 世界濕地日",
"0210 國際氣象節",
"0214 情人節",
"0301 國際海豹日",
"0303 全國愛耳日",
"0305 學雷鋒紀念日",
"0308 婦女節",
"0312 植樹節孫中山逝世紀念日",
"0314 國際警察日",
"0315 消費者權益日",
"0317 中國國醫節國際航海日",
"0321 世界森林日消除種族歧視國際日世界兒歌日",
"0322 世界水日",
"0323 世界氣象日",
"0324 世界防治結核病日",
"0325 全國中小學生安全教育日",
"0330 巴勒斯坦國土日",
"0401 愚人節全國愛國衛生運動月(四月) 稅收宣傳月(四月)",
"0407 世界衛生日",
"0422 世界地球日",
"0423 世界圖書和版權日",
"0424 亞非新聞工作者日",
"0501*勞動節",
"0502*勞動節假日",
"0503*勞動節假日",
"0504 青年節",
"0505 碘缺乏病防治日",
"0508 世界紅十字日",
"0512 國際護士節",
"0515 國際家庭日",
"0517 國際電信日",
"0518 國際博物館日",
"0520 全國學生營養日",
"0523 國際牛奶日",
"0531 世界無煙日",
"0601 國際兒童節",
"0605 世界環境保護日",
"0606 全國愛眼日",
"0617 防治荒漠化和乾旱日",
"0623 國際奧林匹克日",
"0625 全國土地日",
"0626 國際禁毒日",
"0701 香港回歸紀念日中共誕辰世界建築日",
"0702 國際體育記者日",
"0707 抗日戰爭紀念日",
"0711 世界人口日",
"0730 非洲婦女日",
"0801 建軍節",
"0808 中國男子節(爸爸節)",
"0815 抗日戰爭勝利紀念",
"0908 國際掃盲日國際新聞工作者日",
"0909 毛澤東逝世紀念",
"0910 中國教師節",
"0914 世界清潔地球日",
"0916 國際臭氧層保護日",
"0918 九·一八事變紀念日",
"0920 國際愛牙日",
"0927 世界旅遊日",
"0928 孔子誕辰",
"1001*國慶節世界音樂日國際老人節",
"1002*國慶節假日國際和平與民主自由斗爭日",
"1003*國慶節假日",
"1004 世界動物日",
"1006 老人節",
"1008 全國高血壓日世界視覺日",
"1009 世界郵政日萬國郵聯日",
"1010 辛亥革命紀念日世界精神衛生日",
"1013 世界保健日國際教師節",
"1014 世界標准日",
"1015 國際盲人節(白手杖節)",
"1016 世界糧食日",
"1017 世界消除貧困日",
"1022 世界傳統醫葯日",
"1024 聯合國日",
"1031 世界勤儉日",
"1107 十月社會主義革命紀念日",
"1108 中國記者日",
"1109 全國消防安全宣傳教育日",
"1110 世界青年節",
"1111 國際科學與和平周(本日所屬的一周)",
"1112 孫中山誕辰紀念日",
"1114 世界糖尿病日",
"1117 國際大學生節世界學生節",
"1120*彝族年",
"1121*彝族年世界問候日世界電視日",
"1122*彝族年",
"1129 國際聲援巴勒斯坦人民國際日",
"1201 世界艾滋病日",
"1203 世界殘疾人日",
"1205 國際經濟和社會發展志願人員日",
"1208 國際兒童電視日",
"1209 世界足球日",
"1210 世界人權日",
"1212 西安事變紀念日",
"1213 南京大屠殺(1937年)紀念日！緊記血淚史！",
"1220 澳門回歸紀念",
"1221 國際籃球日",
"1224 平安夜",
"1225 聖誕節",
"1226 毛澤東誕辰紀念")

//農歷節日 *表示放假日
var lFtv = new Array(
"0101*春節",
"0102*春節",
"0103*春節",
"0115 元宵節",
"0505 端午節",
"0624*火把節",
"0625*火把節",
"0626*火把節",
"0707 七夕情人節",
"0715 中元節",
"0815 中秋節",
"0909 重陽節",
"1208 臘八節",
"1223 小年",
"0100 除夕")

//某月的第幾個星期幾
var wFtv = new Array(
"0150 世界麻風日", //一月的最後一個星期日（月倒數第一個星期日）
"0520 國際母親節",
"0530 全國助殘日",
"0630 父親節",
"0730 被奴役國家周",
"0932 國際和平日",
"0940 國際聾人節世界兒童日",
"0950 世界海事日",
"1011 國際住房日",
"1013 國際減輕自然災害日(減災日)",
"1144 感恩節")

/*****************************************************************************
日期計算
*****************************************************************************/

//====================================== 返回農歷 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));
}

//====================================== 返回農歷 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
function Lunar(objDate) {

var i, leap=0, temp=0;
var offset = (Date.UTC(objDate.getFullYear(),objDate.getMonth(),objDate.getDate()) - Date.UTC(1900,0,31))/86400000;

for(i=1900; i<2050 && offset>0; i++) { temp=lYearDays(i); offset-=temp; }

if(offset<0) { offset+=temp; i--; }

this.year = i;

leap = leapMonth(i); //閏哪個月
this.isLeap = false;

for(i=1; i<13 && offset>0; i++) {
//閏月
if(leap>0 && i==(leap+1) && this.isLeap==false)
{ --i; this.isLeap = true; temp = leapDays(this.year); }
else
{ temp = monthDays(this.year, i); }

//解除閏月
if(this.isLeap==true && i==(leap+1)) this.isLeap = false;

offset -= temp;
}

if(offset==0 && leap>0 && i==leap+1)
if(this.isLeap)
{ this.isLeap = false; }
else
{ this.isLeap = true; --i; }

if(offset<0){ offset += temp; --i; }

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; //公元年4位數字
this.sMonth = sMonth; //公元月數字
this.sDay = sDay; //公元日數字
this.week = week; //星期, 1個中文
//農歷
this.lYear = lYear; //公元年4位數字
this.lMonth = lMonth; //農歷月數字
this.lDay = lDay; //農歷日數字
this.isLeap = isLeap; //是否為農歷閏月?
//八字
this.cYear = cYear; //年柱, 2個中文
this.cMonth = cMonth; //月柱, 2個中文
this.cDay = cDay; //日柱, 2個中文

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月)
/*
功能說明: 返回整個月的日期資料控制項

使用方式: OBJ = new calendar(年,零起算月);

OBJ.length 返回當月最大日
OBJ.firstWeek 返回當月一日星期

由 OBJ[日期].屬性名稱即可取得各項值

OBJ[日期].isToday 返回是否為今日 true 或 false

其他 OBJ[日期] 屬性參見 calElement() 中的註解
*/
function calendar(y,m) {

var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2, tmp3;
var cY, cM, cD; //年柱,月柱,日柱
var lDPOS = new Array(3);
var n = 0;
var firstLM = 0;

sDObj = new Date(y,m,1,0,0,0,0); //當月一日日期

this.length = solarDays(y,m); //公歷當月天數
this.firstWeek = sDObj.getDay(); //公歷當月1日星期幾

////////年柱 1900年立春後為庚子年(60進制36)
if(m<2) cY=cyclical(y-1900+36-1);
else cY=cyclical(y-1900+36);
var term2=sTerm(y,2); //立春日期

////////月柱 1900年1月小寒以前為丙子月(60進制12)
var firstNode = sTerm(y,m*2) //返回當月「節」為幾日開始
cM = cyclical((y-1900)*12+m+12);

//當月一日與 1900/1/1 相差天數
//1900/1/1與 1970/1/1 相差25567日, 1900/1/1 日柱為甲戌日(60進制10)
var dayCyclical = Date.UTC(y,m,1,0,0,0,0)/86400000+25567+10;

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

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;
}

//依節氣調整二月分的年柱, 以立春為界
if(m==1 && (i+1)==term2) cY=cyclical(y-1900+36);
//依節氣月柱, 以「節」為界
if((i+1)==firstNode) cM = cyclical((y-1900)*12+m+13);
//日柱
cD = cyclical(dayCyclical+i);

//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,
cY ,cM, cD );
}

//節氣
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);
if(tmp1<5)
this[((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek].solarFestival += RegExp.$5 + ' ';
else {
tmp1 -= 5;
tmp3 = (this.firstWeek+this.length-1)%7; //當月最後一天星期?
this[this.length - tmp3 - 7*tmp1 + tmp2 - (tmp2>tmp3?7:0) - 1 ].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].isLeap!=true) {
this[tmp2].lunarFestival += RegExp.$4 + ' ';
if(RegExp.$3=='*') this[tmp2].color = 'red';
}
}
}

//復活節只出現在3或4月
if(m==2 || m==3) {
var estDay = new easter(y);
if(m == estDay.m)
this[estDay.d-1].solarFestival = this[estDay.d-1].solarFestival+' 復活節 Easter Sunday';
}

if(m==2) this[20].solarFestival = this[20].solarFestival+unescape('%20%u6D35%u8CE2%u751F%u65E5');

//黑色星期五
if((this.firstWeek+12)%7==5)
this[12].solarFestival += '黑色星期五';

//今日
if(y==tY && m==tM) this[tD-1].isToday = true;
}

//======================================= 返回該年的復活節(春分後第一次滿月周後的第一主日)
function easter(y) {

var term2=sTerm(y,5); //取得春分日期
var dayTerm2 = new Date(Date.UTC(y,2,term2,0,0,0,0)); //取得春分的公歷日期控制項(春分一定出現在3月)
var lDayTerm2 = new Lunar(dayTerm2); //取得取得春分農歷

if(lDayTerm2.day<15) //取得下個月圓的相差天數
var lMlen= 15-lDayTerm2.day;
else
var lMlen= (lDayTerm2.isLeap? leapDays(y): monthDays(y,lDayTerm2.month)) - lDayTerm2.day + 15;

//一天等於 1000*60*60*24 = 86400000 毫秒
var l15 = new Date(dayTerm2.getTime() + 86400000*lMlen ); //求出第一次月圓為公歷幾日
var dayEaster = new Date(l15.getTime() + 86400000*( 7-l15.getUTCDay() ) ); //求出下個周日

this.m = dayEaster.getUTCMonth();
this.d = dayEaster.getUTCDate();

}

//====================== 中文日期
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) yDisplay = '建國' + (((SY-1949)==1)?'元':SY-1949);

GZ.innerHTML = yDisplay +'年農歷 ' + cyclical(SY-1900+36) + '年【'+Animals[(SY-4)%12]+'年】';

YMBG.innerHTML = "" + SY + "<br>" + monthName[SM];

for(i=0;i<42;i++) {

sObj=eval('SD'+ i);
lObj=eval('LD'+ i);

sObj.className = '';

sD = i - cld.firstWeek;

if(sD>-1 && sD<cld.length) { //日期內
sObj.innerHTML = sD+1;

if(cld[sD].isToday) sObj.className = 'todyaColor'; //今日顏色

sObj.style.color = cld[sD].color; //法定假日顏色

if(cld[sD].lDay==1) //顯示農歷月
lObj.innerHTML = '<b>'+(cld[sD].isLeap?'閏':'') + cld[sD].lMonth + '月' + (monthDays(cld[sD].lYear,cld[sD].lMonth)==29?'小':'大')+'</b>';
else //顯示農歷日
lObj.innerHTML = cDay(cld[sD].lDay);

s=cld[sD].lunarFestival;
if(s.length>0) { //農歷節日
if(s.length>6) s = s.substr(0, 4)+'...';
s = s.fontcolor('red');
}
else { //公歷節日
s=cld[sD].solarFestival;
if(s.length>0) {
size = (s.charCodeAt(0)>0 && s.charCodeAt(0)<128)?8:4;
if(s.length>size+2) s = s.substr(0, size)+'...';
s=(s=='黑色星期五')?s.fontcolor('black'):s.fontcolor('blue');
}
else { //廿四節氣
s=cld[sD].solarTerms;
if(s.length>0) s = s.fontcolor('limegreen');
}
}

if(cld[sD].solarTerms=='清明') s = '清明節'.fontcolor('red');
if(cld[sD].solarTerms=='芒種') s = '芒種節'.fontcolor('red');
if(cld[sD].solarTerms=='夏至') s = '夏至節'.fontcolor('red');
if(cld[sD].solarTerms=='冬至') s = '冬至節'.fontcolor('red');

if(s.length>0) lObj.innerHTML = s;

}
else { //非日期
sObj.innerHTML = '';
lObj.innerHTML = '';
}
}
}

function changeCld() {
var y,m;
y=CLD.SY.selectedIndex+1900;
m=CLD.SM.selectedIndex;
drawCld(y,m);
}

function pushBtm(K) {
switch (K){
case 'YU' :
if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;
break;
case 'YD' :
if(CLD.SY.selectedIndex<150) CLD.SY.selectedIndex++;
break;
case 'MU' :
if(CLD.SM.selectedIndex>0) {
CLD.SM.selectedIndex--;
}
else {
CLD.SM.selectedIndex=11;
if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;
}
break;
case 'MD' :
if(CLD.SM.selectedIndex<11) {
CLD.SM.selectedIndex++;
}
else {
CLD.SM.selectedIndex=0;
if(CLD.SY.selectedIndex<150) CLD.SY.selectedIndex++;
}
break;
default :
CLD.SY.selectedIndex=tY-1900;
CLD.SM.selectedIndex=tM;
}
changeCld();
}

var Today = new Date();
var tY = Today.getFullYear();
var tM = Today.getMonth();
var tD = Today.getDate();
//////////////////////////////////////////////////////////////////////////////

var width = "130";
var offsetx = 2;
var offsety = 8;

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;

//sYear,sMonth,sDay,week,
//lYear,lMonth,lDay,isLeap,
//cYear,cMonth,cDay

if(sObj.innerHTML!='') {

sObj.style.cursor = 's-resize';

if(cld[d].solarTerms == '' && cld[d].solarFestival == '' && cld[d].lunarFestival == '')
festival = '';
else
festival = '<table WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR="#CCFFCC"><tr><td>'+
'<font COLOR="#000000" STYLE="font-size:9pt;">'+cld[d].solarTerms + ' ' + cld[d].solarFestival + ' ' + cld[d].lunarFestival+'</font></td>'+
'</tr></table>';

s= '<table WIDTH="130" BORDER=0 CELLPADDING="2" CELLSPACING=0 BGCOLOR="#000066" style="filter:Alpha(opacity=80)"><tr><td>' +
'<table WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><tr><td ALIGN="right"><font COLOR="#ffffff" STYLE="font-size:9pt;">'+
cld[d].sYear+' 年 '+cld[d].sMonth+' 月 '+cld[d].sDay+' 日<br>星期'+cld[d].week+'<br>'+
'<font color="violet">農歷'+(cld[d].isLeap?'閏 ':' ')+cld[d].lMonth+' 月 '+cld[d].lDay+' 日</font><br>'+
'<font color="yellow">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</font>'+
'</font></td></tr></table>'+ festival +'</td></tr></table>';

document.all["detail"].innerHTML = s;

if (snow == 0) {
dStyle.left = x+offsetx-(width/2);
dStyle.top = y+offsety;
dStyle.visibility = "visible";
snow = 1;
}
}
}

//清除詳細日期資料
function mOut() {
if ( cnt >= 1 ) { sw = 0; }
if ( sw == 0 ) { snow = 0; dStyle.visibility = "hidden";}
else cnt++;
}

//取得位置
function mEvn() {
x=event.x;
y=event.y;
if (document.body.scrollLeft)
{x=event.x+document.body.scrollLeft; y=event.y+document.body.scrollTop;}
if (snow){
dStyle.left = x+offsetx-(width/2);
dStyle.top = y+offsety;
}
}

///////////////////////////////////////////////////////////////////////////

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()
Clock2.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 ""
}
}

/////////////////////////////////////////////////////////

function initial() {

dStyle = detail.style;
CLD.SY.selectedIndex=tY-1900;
CLD.SM.selectedIndex=tM;
drawCld(tY,tM);
pushBtm('');
CLD.TZ.selectedIndex=getCookie("TZ");
changeTZ();
tick(

閱讀全文

熱點內容

工商牡丹普卡發布：2025-06-23 03:59:30 瀏覽：492

中國名優茶花發布：2025-06-23 03:59:27 瀏覽：790

梅花l圖片發布：2025-06-23 03:58:46 瀏覽：282

石蠶蘭花發布：2025-06-23 03:58:10 瀏覽：738

雲南白葯綠植圖片大全發布：2025-06-23 03:57:17 瀏覽：429

6塊丁香結發布：2025-06-23 03:51:01 瀏覽：521

白玫瑰插畫發布：2025-06-23 03:50:55 瀏覽：185

七夕前冷戰發布：2025-06-23 03:48:11 瀏覽：861

蘭花串怎麼吃發布：2025-06-23 03:40:34 瀏覽：726

七夕夜聽雨發布：2025-06-23 03:36:12 瀏覽：993

情人節網頁代碼

與情人節網頁代碼相關的資訊