sp; TempStr = "中华人民共和国成立" If y = 1949 Then TempStr = TempStr & "了" Else Select Case y Case 2000 TempStr = "千禧年" Case Else TempStr = TempStr & UpNumber(CStr(y - 1949)) & "周年" End Select End If End If End If End If End If
Era = TempStr End Function
'''' 传入 num 传回干支, 0=甲子 Public Function GanZhi(num As Long) As String Dim TempStr As String Dim i As Long i = (num - 1864) Mod 60 ''''计算干支 TempStr = Gan(i Mod 10) & Zhi(i Mod 12) GanZhi = TempStr End Function
''''计算年的属相字串 Public Function YearAttribute(y As Long) As String YearAttribute = Animals((y - 1900) Mod 12) End Function
''''将数字汉化 Public Function UpNumber(Dxs As String) As String
''''检测为空时 If Trim(Dxs) = "" Then UpNumber = "" Exit Function End If
Dim Sw As Integer, SzUp As Integer, TempStr As String, DXStr As String Sw = Len(Trim(Dxs))
Dim i As Integer For i = 1 To Sw TempStr = Right(Trim(Dxs), i) TempStr = Left(TempStr, 1) TempStr = Converts(TempStr) Select Case i Case 1 If TempStr = "零" Then TempStr = "" Else TempStr = TempStr + "" End If Case 2 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "十" End If Case 3 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "百" End If Case 4 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "千" End If Case 5 If TempStr = "零" Then TempStr = "万" Else TempStr = TempStr + "万" End If Case 6 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "十" End If Case 7 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "百" End If Case 8 If TempStr = "零" Then TempStr = "零" Else TempStr = TempStr + "千" End If Case 9 If TempStr = "零" Then TempStr = "亿" Else TempStr = TempStr + "亿" End If End Select Dim TempA As String TempA = Left(Trim(DXStr), 1) If TempStr = "零" Then Select Case TempA Case "零" DXStr = DXStr Case "万" DXStr = DXStr Case "亿" DXStr = DXStr Case Else DXStr = TempStr + DXStr End Select Else DXStr = TempStr + DXStr End If Next
UpNumber = DXStr End Function Private Function Converts(NumStr As String) As String Select Case Val(Num