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
Case 1913 : Return 7
Case 1914 : Return 12
Case 1915 : Return 8
Case 1916 : Return 5
Case 1917 : Return 6
Case 1918 : Return 19
Case 1919 : Return 6
Case 1920 : Return 8
Case 1921 : Return 16
Case 1922 : Return 10
Case 1923 : Return 7
Case 1924 : Return 12
Case 1925 : Return 9
Case 1926 : Return 6
Case 1927 : Return 7
Case 1928 : Return 12
Case 1929 : Return 5
Case 1930 : Return 9
Case 1931 : Return 8
Case 1932 : Return 7
Case 1933 : Return 8
Case 1934 : Return 15
Case 1935 : Return 9
Case 1936 : Return 16
Case 1937 : Return 8
Case 1938 : Return 8
Case 1939 : Return 9
Case 1940 : Return 12
Case 1941 : Return 6
Case 1942 : Return 8
Case 1943 : Return 5
Case 1944 : Return 5
Case 1945 : Return 15
Case 1946 : Return 6
Case 1947 : Return 16
Case 1948 : Return 15
Case 1949 : Return 8
Case 1950 : Return 9
Case 1951 : Return 12
Case 1952 : Return 10
Case 1953 : Return 7
Case 1954 : Return 15
Case 1955 : Return 6
Case 1956 : Return 5
Case 1957 : Return 14
Case 1958 : Return 14
Case 1959 : Return 9
Case 1960 : Return 7
Case 1961 : Return 7
Case 1962 : Return 9
Case 1963 : Return 12
Case 1964 : Return 8
Case 1965 : Return 7
Case 1966 : Return 13
Case 1967 : Return 5
Case 1968 : Return 14
Case 1969 : Return 5
Case 1970 : Return 9
Case 1971 : Return 17
Case 1972 : Return 5
Case 1973 : Return 7
Case 1974 : Return 12
Case 1975 : Return 8
Case 1976 : Return 5
Case 1977 : Return 6
Case 1978 : Return 19
Case 1979 : Return 6
Case 1980 : Return 8
Case 1981 : Return 16
Case 1982 : Return 10
Case 1983 : Return 7
Case 1984 : Return 12
Case 1985 : Return 9
Case 1986 : Return 6
Case 1987 : Return 7
Case 1988 : Return 12
Case 1989 : Return 5
Case 1990 : Return 9
Case 1991 : Return 8
Case 1992 : Return 7
Case 1993 : Return 8
Case 1994 : Return 15
Case 1995 : Return 9
Case 1996 : Return 16
Case 1997 : Return 8
Case 1998 : Return 8
Case 1999 : Return 9
Case 2000 : Return 12
Case 2001 : Retu