星期的公式

netbird · 2005-12-12, 01:31 PM

就是使用什麼原理或公式，可以算出某年某月某日是星期幾？

例如：1983年3月20號是星期幾

mini · 2005-12-12, 02:22 PM

每一種語言都有自己的保留字函式可用
比如 VB 是 Weekday
===================
Weekday 函數範例
本範例使用 Weekday 函數來傳回某一日期為星期幾。

Dim MyDate, MyWeekDay
MyDate = #February 12, 1969# ' 指定一日期。
MyWeekDay = Weekday(MyDate) ' MyWeekDay 的值為 4，因為 MyDate 是星期四。
===================

其實要自己設計也很簡單的
以公元0001年為起點
每四年有一個潤年
所以 (公元XXXX年 / 4) 看能否整除
能的話當年的2月即為29天
否則當年的2月即為28天
那其他月份是固定的
大月(31天) 1 3 5 7 8 10 12
小月(30天) 4 6 9 11

0001年 01月 01日是星期一
所以VB裡
MsgBox Weekday("0001 01 01")
會出現 "2" (代表星期一)

回過頭來
1983年3月20號是星期幾?
1983 mod 4 = 3 不是潤年(2月只有28天)
所以 1月+2月=31+28 再 +20 = 第79天
0001~1983 總共 365*(1983-1)= 723430天
再加每4年多一天= (1983-1)/4 捨棄小數點 = 495

1983年3月20號= 723430+495+79= 公元第724004天
724004 mod 7 = 1，所以是星期日
(如果 mod 7 = 0，表示是星期六)

換算表
##########
星期日 = 1
星期一 = 2
星期二 = 3
星期三 = 4
星期四 = 5
星期五 = 6
星期六 = 0
##########

驗證

2000年 12月 12日 (星期2)
729635+
499+
(186+120+29)=335+
12=730481

2005年 12月 01日 (星期4)
731460+
501+
(186+120+28)=334+
1=732296

1995年 07月 12日 (星期3)
727810+
498+
(93+60+28)=181+
12=728501

snoopy · 2005-12-12, 03:28 PM

我想把日期的規則都寫進程式就可以了
如果用Java的話可以用Date類別處理

getter · 2005-12-12, 04:57 PM

引用:

作者: mini

每一種語言都有自己的保留字函式可用
比如 VB 是 Weekday
===================
Weekday 函數範例
本範例使用 Weekday 函數來傳回某一日期為星期幾。

Dim MyDate, MyWeekDay
MyDate = #February 12, 1969# ' 指定一日期。
MyWeekDay = Weekday(MyDate) ' MyWeekDay 的值為 4，因為 MyDate 是星期四。
========...

好利害阿 . . .

netbird · 2005-12-13, 12:27 AM

謝謝

我是使用perl寫的，他也有函數可以直接拿到系統的星期

但我要從檔案讀出資料再運算，所以需要公式

我已經想了兩天，我之後要mod 7，看餘數，就是是在潤年怎麼算就搞混了

我參考了下面的很多種方法，看起來可以，但那麼多種，看了便搞混了
http://www.geocities.com/calshing/dayofweek.htm

現在已經寫出來了，謝謝mini大

2005-12-12, 01:31 PM	#1
netbird 長老會員榮譽勳章勳章總數5 UID - 152953 在線等級: 註冊日期: 2004-09-13 文章: 271 精華: 0 現金: 243 金幣資產: 79059 金幣	星期的公式就是使用什麼原理或公式，可以算出某年某月某日是星期幾？例如：1983年3月20號是星期幾
	__________________ 你的回應是我發貼的最大原動力，給個花也可以 -=-=->海賊王-動畫1~350下載<-=-=- 如有解壓縮密碼為：史萊姆第一個家-NETBIRD私人分享於VIP區 http://forum.slime.com.tw/
	送花文章: 129, 收花文章: 149 篇, 收花: 1102 次

2005-12-12, 02:22 PM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13247 精華: 0 現金: 26237 金幣資產: 3024047 金幣	每一種語言都有自己的保留字函式可用比如 VB 是 Weekday =================== Weekday 函數範例本範例使用 Weekday 函數來傳回某一日期為星期幾。 Dim MyDate, MyWeekDay MyDate = #February 12, 1969# ' 指定一日期。 MyWeekDay = Weekday(MyDate) ' MyWeekDay 的值為 4，因為 MyDate 是星期四。 =================== 其實要自己設計也很簡單的以公元0001年為起點每四年有一個潤年所以 (公元XXXX年 / 4) 看能否整除能的話當年的2月即為29天否則當年的2月即為28天那其他月份是固定的大月(31天) 1 3 5 7 8 10 12 小月(30天) 4 6 9 11 0001年 01月 01日是星期一所以VB裡 MsgBox Weekday("0001 01 01") 會出現 "2" (代表星期一) 回過頭來 1983年3月20號是星期幾? 1983 mod 4 = 3 不是潤年(2月只有28天) 所以 1月+2月=31+28 再 +20 = 第79天 0001~1983 總共 365*(1983-1)= 723430天再加每4年多一天= (1983-1)/4 捨棄小數點 = 495 1983年3月20號= 723430+495+79= 公元第724004天 724004 mod 7 = 1，所以是星期日 (如果 mod 7 = 0，表示是星期六) 換算表 ########## 星期日 = 1 星期一 = 2 星期二 = 3 星期三 = 4 星期四 = 5 星期五 = 6 星期六 = 0 ########## 驗證 2000年 12月 12日 (星期2) 729635+ 499+ (186+120+29)=335+ 12=730481 2005年 12月 01日 (星期4) 731460+ 501+ (186+120+28)=334+ 1=732296 1995年 07月 12日 (星期3) 727810+ 498+ (93+60+28)=181+ 12=728501

	送花文章: 1999, 收花文章: 7956 篇, 收花: 26748 次

2005-12-12, 03:28 PM	#3 (permalink)
snoopy 註冊會員榮譽勳章勳章總數8 UID - 33737 在線等級: 註冊日期: 2003-02-02 VIP期限: 2011-06 住址: 台南共和國文章: 1831 精華: 0 現金: 12744 金幣資產: 12834 金幣	我想把日期的規則都寫進程式就可以了如果用Java的話可以用Date類別處理

	送花文章: 623, 收花文章: 392 篇, 收花: 1288 次

2005-12-13, 12:27 AM	#5 (permalink)
netbird 長老會員榮譽勳章勳章總數5 UID - 152953 在線等級: 註冊日期: 2004-09-13 文章: 271 精華: 0 現金: 243 金幣資產: 79059 金幣	謝謝我是使用perl寫的，他也有函數可以直接拿到系統的星期但我要從檔案讀出資料再運算，所以需要公式我已經想了兩天，我之後要mod 7，看餘數，就是是在潤年怎麼算就搞混了我參考了下面的很多種方法，看起來可以，但那麼多種，看了便搞混了 http://www.geocities.com/calshing/dayofweek.htm 現在已經寫出來了，謝謝mini大

	送花文章: 129, 收花文章: 149 篇, 收花: 1102 次

Google 提供的廣告