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]  下一页