ht(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(NumStr) Case 0 Converts = "零" Case 1 Converts = "一" Case 2 Converts = "二" Case 3 Converts = "三" Case 4 Converts = "四" Case 5 Converts = "五" Case 6 Converts = "六" Case 7 Converts = "七" Case 8 Converts = "八" Case 9 Converts = "九" End Select End Function ''''中文日期 Public Function CDayStr(d As Long) As String Dim s As String Select Case d Case 0 s = "" Case 10 s = "初十" Case 20 s = "二十" Case 30 s = "三十" Case Else s = nStr2(d \ 10) ''''整数除法 s = s & nStr1(d Mod 10) End Select CDayStr = s End Function ''''计算星座归属 Public Function Constellation(m As Long, d As Long) As String Dim y As Long Dim tempDate As Date Dim Constell