儒略日、公歷年月日之間的轉(zhuǎn)換以及儒略日的應(yīng)用電子教案

1、一、 作業(yè)要求編寫程序?qū)崿F(xiàn)以下任務(wù)：1.1由公歷年月日化為儒略日1.2由儒略日轉(zhuǎn)化為公歷年月日1.3儒略日的應(yīng)用1.3.1 計算兩個日期間的間隔天數(shù)1.3.2 計算星期幾1.3.3 計算年積日(DOY)1.3.4 由年積日計算年月日二、 程序設(shè)計2.1 窗體設(shè)計2.2 代碼實現(xiàn)2.2.1由公歷年月日化為儒略日 /由公歷年月日轉(zhuǎn)化為儒略日的函數(shù) public double GLToJD(double Y, double M, double D) double JDtime; JDtime = 367 * Y - Math.Truncate(7 * (Y + Math.Truncate(M + 9

2、) / 12) / 4) + Math.Truncate(275 * M / 9) + D + .5; return JDtime; 2.2.2 由儒略日轉(zhuǎn)化為公歷年月日/由儒略日轉(zhuǎn)化為公歷年月日的函數(shù) public void JDToGL(double JDtime,out double Y,out double M,out double D) double a, b, c, d, e; a = Math.Truncate(JDtime + 0.5); b = a + 1537; c = Math.Truncate(b - 122.1) / 365.25); d = Math.Truncat

3、e(365.25 * c); e = Math.Truncate(b-d)/30.6001); D=b-d-Math.Truncate (30.6001*e)+JDtime+0.5- Convert.ToInt32(JDtime+0.5); M = e - 1 - Math.Truncate(e / 14) * 12; Y = c - 4715 - Math.Truncate(7 + M) / 10); 2.2.3 計算兩個日期間的間隔天數(shù)private void JGTSbutton_Click(object sender, EventArgs e) double JDtime1, JDti

4、me2,Y1,M1,D1,Y2,M2,D2,JGTS; if (Year31.Text = | Month31.Text = | Day31.Text = | Year31.Text = | Month31.Text = | Day31.Text = ) MessageBox.Show(輸入的日期不能為空！); else Y1 = double.Parse(Year31.Text); M1 = double.Parse(Month31.Text); D1 = double.Parse(Day31.Text); JDtime1 = GLToJD(Y1, M1, D1); Y2 = double.

5、Parse(Year32.Text); M2 = double.Parse(Month32.Text); D2 = double.Parse(Day32.Text); JDtime2 = GLToJD(Y2, M2, D2); JGTS = Math.Abs(JDtime2 - JDtime1); JG.Text = JGTS.ToString(); 2.2.4 計算星期幾private void XQbutton_Click(object sender, EventArgs e) double JDtime,Y,M,D, XQ; if (Year4.Text = | Month4.Text

6、= | Day4.Text = ) MessageBox.Show(輸入的日期不能為空！); else Y = double.Parse(Year4.Text); M = double.Parse(Month4.Text); D = double.Parse(Day4.Text); JDtime = GLToJD(Y, M, D); XQ = (JDtime + 1.5) % 7; if (XQ = 0) weekDay.Text = 星期日; if (XQ = 1) weekDay.Text = 星期一; if (XQ = 2) weekDay.Text = 星期二; if (XQ = 3)

7、 weekDay.Text = 星期三; if (XQ = 4) weekDay.Text = 星期四; if (XQ = 5) weekDay.Text = 星期五; if (XQ = 6) weekDay.Text = 星期六; 2.2.5 計算年積日private void NJRbutton_Click(object sender, EventArgs e) double Y,M,D,JDtime1,JDtime2; if (Year5.Text = | Month5.Text = | Day5.Text = ) MessageBox.Show(輸入的日期不能為空！); else Y

8、= double.Parse(Year5.Text); M = double.Parse(Month5.Text); D = double.Parse(Day5.Text); JDtime1 = GLToJD(Y,M-1,D); JDtime2 = GLToJD(Y,0,0 ); NJR1.Text = (JDtime1-JDtime2).ToString(); 目前，上海市創(chuàng)業(yè)培訓(xùn)中心已開辦大學(xué)生創(chuàng)業(yè)培訓(xùn)班，共招收上海交通大學(xué)、上海商業(yè)職業(yè)技術(shù)學(xué)院等應(yīng)屆畢業(yè)生人。 2.2.6 由年積日計算年月日private void NJRTONYRbutton_Click(object sender,

9、EventArgs e) double JDtime, Y1, Y, M, D,NJR;雖然調(diào)查顯示我們的創(chuàng)意計劃有很大的發(fā)展空間，但是各種如“漂亮女生”和“碧芝”等連鎖飾品店在不久的將來將對我們的創(chuàng)意小屋會產(chǎn)生很大的威脅。 if (Year6.Text = | NJR2.Text = ) MessageBox.Show(輸入的日期不能為空！);如果顧客在消費中受到營業(yè)員的熱情，主動而周到的服務(wù)，那就會有一種受到尊重的感覺，甚至?xí)纬梢环N惠顧心理，經(jīng)常會再次光顧，并為你介紹新的顧客群。而且顧客的購買動機并非全是由需求而引起的，它會隨環(huán)境心情而轉(zhuǎn)變。 培養(yǎng)動手能力 學(xué)一門手藝 打發(fā)時間 興趣愛好

10、 else NJR = double.Parse(NJR2.Text);加拿大公司就是根據(jù)年輕女性要充分展現(xiàn)自己個性的需求，將世界各地的珠類飾品匯集于“碧芝自制飾品店”內(nèi)，由消費者自選、自組、自制，這樣就能在每個消費者親手制作、充分發(fā)揮她們的藝術(shù)想像力的基礎(chǔ)上，創(chuàng)作出作品，達到展現(xiàn)個性的效果 Y1 = double.Parse(Year6.Text); JDtime = GLToJD(Y1, 0, 0) + NJR+30; JDToGL(JDtime ,out Y,out M,out D);3、你是否購買過DIY手工藝制品？ textBox1.Text = JDtime.ToString (); GLNYR.Text = Y.ToString() + 年 + M.ToString() +