Excel [求助]在电子表格中把公历日期转换成农历与天干地支2

Public Sub tt()
Dim sh$, i%
Dim ShiCheng$(1 To 12)
ShiCheng(1) = "子时"
ShiCheng(2) = "丑时"
ShiCheng(3) = "寅时"
ShiCheng(4) = "卯时"
ShiCheng(5) = "辰时"
ShiCheng(6) = "巳时"
ShiCheng(7) = "午时"
ShiCheng(8) = "未时"
ShiCheng(9) = "申时"
ShiCheng(10) = "酉时"
ShiCheng(11) = "戌时"
ShiCheng(12) = "亥时"

i = Int((Hour(Time) - 1) / 2) + 2

If Hour(Time) = 23 Or Hour(Time) = 0 Then
    sh = ShiCheng(1)
Else
    sh = ShiCheng(i)
End If
MsgBox sh
End Sub