Excel 農曆與國曆萬年曆 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » Excel 農曆與國曆萬年曆

123 4 下一頁

返回列表下一主題上一主題發帖

[分享] Excel 農曆與國曆萬年曆

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

24^# 跳轉到 »

發表於 2013-6-14 20:49 | 只看該作者

回復 23# c_c_lai

最後4位為當年農曆新年的西曆日期，如0131代表1月31日；當作數值轉十六進位(6-7位)

農曆新年的西曆日期，如0131代表1月31日；當作數值轉十六進位(6-7位)

2013-2-10是年初一 0210 = D2

ss

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

23^#

發表於 2013-6-14 17:30 | 只看該作者

回復 22# sunnyso
我已將它註記在程式碼的備註裡，感謝你！
這有點像 Bit ^ onOff 的處哩，以往在職場時也常應用 Bit Shift
的原理來處理旗標控管 (C語言)。
前三碼是 1~4月、5~8月、9~12月的日數定義 (0 代表 29、1 代表 30)
那麼再請教，那後四碼 (00D2) 代表的意義呢？

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

22^#

發表於 2013-6-14 12:40 | 只看該作者

回復 19# c_c_lai

因爲看漏了myleoyes提出的第二個錯誤點 “農曆5月有30天 (國曆7月7日)“, 所以作第二次修改

B5500D2 -> A5500D2 -> AD500D2

第一位（1~4月） B = 1001 第四位代表四月如果29 日應爲 0 所以改爲 1000 = A
第二位（5~8月） 5 = 0101 第一位代表五月如果30日應爲 1 所以改爲 1101 = D

ss

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

21^#

發表於 2013-6-14 11:58 | 只看該作者

回復 20# sunnyso
謝謝你，那三組 Function 我會去慢慢消化的，
Idea 非常棒，是你本身 Coding 的嗎？
實在是很棒的創意！

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

20^#

發表於 2013-6-14 11:38 | 只看該作者

回復 19# c_c_lai

在VBA裏已經有說明編碼方式。有興趣的可以研究一下，請指教。

ss

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

19^#

發表於 2013-6-14 10:50 | 只看該作者

回復 18# sunnyso
原來是 B5500D2 -> A5500D2 -> AD500D2，
謝謝你熱心的指導！ Muchas gracias!

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

18^#

發表於 2013-6-14 10:13 | 只看該作者

回復 17# c_c_lai

修正16進制的查詢表，在VBA的開頭部分

ss

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

17^#

發表於 2013-6-14 04:28 | 只看該作者

回復 myleoyes

修正農曆五月30日錯誤
sunnyso 發表於 2013-6-13 22:01

早安！萬年曆-農國曆確實是個不錯的議題，謝謝你分享。
請賜教一個問題，即有關：
農曆4月沒有30天 (國曆6月7日)、農曆5月有30天 (國曆7月7日)
這兩天的修正案例。
我核對了前後的檔案，其內容好似無差異，請教你是修正了哪個
地方 (程式、或公式)，真不好意思還請你不吝指導！

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

16^#

發表於 2013-6-13 22:01 | 只看該作者

回復 15# myleoyes

修正農曆五月30日錯誤

萬年曆-農國曆.rar (34.46 KB)

ss

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

15^#

發表於 2013-6-13 21:49 | 只看該作者

回復 14# sunnyso
前輩!謝謝再三!!

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

123 4 下一頁

返回列表下一主題上一主題