真正的公农历转换类for VB

作者: 来源:网络文章时间:2005-12-13 17:20:20

真正的公农历转换类for VB(15)                    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 = ""

共26页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] 8 :>

真正的公农历转换类for VB 相关文章：

真正的公农历转换类for VB 相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com