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
|