- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
3#
發表於 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- Option Explicit
- Const baseYrow = 1870, sTermCol = 4
- Dim sTerm As Variant
- Dim x As Object
- Function getsTermY(ByVal sY As Integer) As String
- Dim tempsTermYstr As String
- Dim i As Integer
- Set x = ActiveWorkbook.Sheets("24節氣表")
-
- tempsTermYstr = x.Cells(sY - baseYrow, sTermCol)
- ReDim sTerm(24)
- For i = 1 To 24
- sTerm(i) = Val(Mid(tempsTermYstr, i, 1))
- If Int((i + 1) / 2) = i / 2 Then
- sTerm(i) = sTerm(i) + 15
- End If
- Next i
- getsTermY = tempsTermYstr
- End Function
- Function 建立全年24節氣表(sY)
- Dim ff As String
- Dim i As Integer
- Set x = ActiveWorkbook.Sheets("24節氣表")
- x.Cells(5, 2) = "西元 " & sY & "年 24節氣日期表"
- ff = getsTermY(sY)
- For i = 1 To 24
- x.Cells(8, i + 2) = sTerm(i)
- Next i
- End Function
|
|
