標題: [發問] 農曆24節氣 [打印本頁]

---

作者: ling822    時間: 2014-2-14 10:34     標題: 農曆24節氣

請問excel可否以西曆換算出農曆24節氣嗎?

---

作者: jeffrey628litw    時間: 2014-2-14 12:37

回復 1# ling822


    版大您好，這裡有我以前抓的大陸行事曆，是用Excel製作的，裡面有萬年曆及節氣等。

---

作者: yen956    時間: 2014-2-14 16:31

24節氣表.gif

24節氣表.rar
http://www.mediafire.com/download/pcbhjfk4jjyzoll/24%E7%AF%80%E6%B0%A3%E8%A1%A8.rar

1. Option Explicit
   
2. 
   
3. Const baseYrow = 1870, sTermCol = 4
   
4. Dim sTerm As Variant
   
5. Dim x As Object
   
6. 
   
7. Function getsTermY(ByVal sY As Integer) As String
   
8.    Dim tempsTermYstr As String
   
9.    Dim i As Integer
   
10.    Set x = ActiveWorkbook.Sheets("24節氣表")
    
11.    
    
12.    tempsTermYstr = x.Cells(sY - baseYrow, sTermCol)
    
13.    ReDim sTerm(24)
    
14.    For i = 1 To 24
    
15.       sTerm(i) = Val(Mid(tempsTermYstr, i, 1))
    
16.       If Int((i + 1) / 2) = i / 2 Then
    
17.          sTerm(i) = sTerm(i) + 15
    
18.       End If
    
19.    Next i
    
20.    getsTermY = tempsTermYstr
    
21. End Function
    
22. 
    
23. Function 建立全年24節氣表(sY)
    
24.    Dim ff As String
    
25.    Dim i As Integer
    
26.    Set x = ActiveWorkbook.Sheets("24節氣表")
    
27.    x.Cells(5, 2) = "西元 " & sY & "年 24節氣日期表"
    
28.    ff = getsTermY(sY)
    
29.    For i = 1 To 24
    
30.       x.Cells(8, i + 2) = sTerm(i)
    
31.    Next i
    
32. End Function

複製代碼

---

作者: yen956    時間: 2014-2-14 18:20

回復 2# jeffrey628litw
大大你好!
打開後靜止不動!?
根版本有關嗎?我的是2003

---

作者: ling822    時間: 2014-2-15 09:54

回復 2# jeffrey628litw


    謝謝Jeffrey, 權限問題未能下載

---

作者: jeffrey628litw    時間: 2014-2-16 13:03

本帖最後由 jeffrey628litw 於 2014-2-16 13:06 編輯

回復 5# ling822


    版大您好，這裡有暫時下載網站：http://www.FunP.Net/238190

附件我有重新更新請再試試看。

---

作者: yen956    時間: 2014-2-16 19:02

回復 6# jeffrey628litw
可以用了, 謝謝!!

---

作者: bubucar    時間: 2014-2-20 12:14

感謝分享~ 非常感謝哩~

---

作者: ling822    時間: 2014-2-21 21:14

回復 6# jeffrey628litw


    非常感謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)