|
Public Class ClassChG
Private vWeight As Integer = 0
Private vResultWord As String
''''vDate格式为：1978-8-10
''''vTime值为：
''''子：子（23：00～1：00）
''''丑：丑（1：00～3：00）
''''寅：寅（3：00～5：00）
''''卯：卯（5：00～7：00）
''''辰：辰（7：00～9：00）
''''巳：巳（9：00～11：00）
''''午：午（11：00～13：00）
''''未：未（13：00～15：00）
''''申：申（15：00～17：00）
''''酉：酉（17：00～19：00）
''''戌：戌（19：00～21：00）
''''亥：亥（21：00～23：00）
Public Sub New(ByVal vDate As String, ByVal vTime As String)
Dim ss() As String = Split(vDate, "-")
vWeight += Me.GetYearValue(ss(0))
vWeight += Me.GetMonthValue(ss(1))
vWeight += Me.GetDayValue(ss(2))
vWeight += Me.GetTimeValue(vTime)
vResultWord = Me.GetResultWord(vWeight)
End Sub
Public ReadOnly Property Weight() As Integer
Get
Weight = vWeight
End Get
End Property
Public ReadOnly Property ResultWord() As String
Get
ResultWord = vResultWord
End Get
End Property
Function GetYearValue(ByVal Year As Integer) As Integer
Select Case Year
Case 1900 : Return 7
Case 1901 : Return 7
Case 1902 : Return 9
Case 1903 : Return 12
Case 1904 : Return 8
Case 1905 : Return 7
Case 1906 : Return 13
Case 1907 : Return 5
Case 1908 : Return 14
Case 1909 : Return 5
Case 1910 : Return 9
Case 1911 : Return 17
Case 1912 : Return 5
[1] [2] [3] [4] [5] [6] [7] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
