稱骨算命的VB.NET類

來源:互聯網
上載者:User
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 : Return 6

Case 2002 : Return 8

Case 2003 : Return 5

Case 2004 : Return 5

Case 2005 : Return 15

Case 2006 : Return 6

Case 2007 : Return 16

Case 2008 : Return 15

Case 2009 : Return 8



Case 2010 : Return 9

Case 2011 : Return 12

Case Else : Throw New NotSupportedException("本函數只提供1900年至2011年的時間轉換!")

End Select

End Function

Function GetMonthValue(ByVal Month As Integer) As Integer

Select Case Month

Case 1 : Return 6

Case 2 : Return 7

Case 3 : Return 18

Case 4 : Return 5

Case 5 : Return 9

Case 6 : Return 16

Case 7 : Return 9

Case 8 : Return 15

Case 9 : Return 18

Case 10 : Return 8

Case 11 : Return 9

Case 12 : Return 5

End Select

End Function

Function GetDayValue(ByVal Day As Integer) As Integer

Select Case Day

Case 1 : Return 5

Case 2 : Return 10

Case 3 : Return 8

Case 4 : Return 15

Case 5 : Return 16

Case 6 : Return 15

Case 7 : Return 8

Case 8 : Return 16

Case 9 : Return 8



Case 10 : Return 16

Case 11 : Return 9

Case 12 : Return 17

Case 13 : Return 8

Case 14 : Return 17

Case 15 : Return 10

Case 16 : Return 8

Case 17 : Return 9

Case 18 : Return 18

Case 19 : Return 5



Case 20 : Return 15

Case 21 : Return 10

Case 22 : Return 9

Case 23 : Return 8

Case 24 : Return 9

Case 25 : Return 15

Case 26 : Return 17

Case 27 : Return 7

Case 28 : Return 8

Case 29 : Return 16

Case 30 : Return 6

End Select

End Function

Function GetTimeValue(ByVal Time As String) As Integer

Select Case Time

Case "子" : Return 16

Case "醜" : Return 6

Case "寅" : Return 7

Case "卯" : Return 10

Case "辰" : Return 9

Case "巳" : Return 16

Case "午" : Return 10

Case "未" : Return 8

Case "申" : Return 8

Case "酉" : Return 9

Case "戌" : Return 6

Case "亥" : Return 6

End Select

End Function

Function GetResultWord(ByVal Value As Integer) As String

Select Case Value

Case 22

Return "身寒骨冷苦伶仃,此命推來行乞人,碌碌巴巴無度日,終年打拱過平生。"

Case 23

Return "此命推來骨自輕,求謀作事事難成,妻兒兄弟應難許,別處他鄉作散人。"

Case 24

Return "此命推來福祿無,門庭困苦總難營,六親骨肉皆無靠,流到他鄉作老翁。"

Case 25

Return "此命推來祖業微,門庭營度似稀奇,六親骨肉如冰炭,一世難勞自把持。"

Case 26

Return "平生衣祿苦中求,獨自經營事不休,離祖出門宜早計,晚來衣祿庶無憂。"

Case 27

Return "一生作事少商量,難靠祖宗作主張,獨馬單槍空做去,早年晚歲總無長。"

Case 28

Return "一生行事似飄蓬,祖宗產業大夢中,若不過房並改姓,也當移徙二三通。"

Case 29

Return "初年運限未曾亨,縱有功名在後成,須過四旬才可上,移居改姓始為良。"

Case 30

Return "勞勞碌碌苦中求,東走西奔何日休,苦使終身勤與儉,老來稍可免憂愁。"

Case 31

Return "忙忙碌碌苦中求,何日雲開見日頭,難得祖基家可立,中年衣食漸能周。"

Case 32

Return "初年支蹇事難謀,漸有財源如水流,到得中年衣食旺,那時名利一起來。"

Case 33

Return "早年作事事難成,百計徒勞枉費心,半世自如流水去,後來運到得黃金。"

Case 34

Return "此命福氣果如何,僧道門中衣祿多,離祖出家方得妙,終朝拜佛念彌陀。"

Case 35

Return "生平福星不周全,祖業根基覺不傳,營事生涯宜守舊,時來衣食勝從前。"

Case 36

Return "不須勞碌過平生,獨自成家福不輕,早有福星常照命,任君行去百般成。"

Case 37

Return "此命般般事不成,弟兄少力自孤成,雖然祖業須微有,來得明時去不明。"

Case 38

Return "一身骨肉最清高,早入學門姓名標,待看年將三十六,藍衫脫去換紅袍。"

Case 39

Return "此命終身運不通,勞勞作事盡皆空,苦心竭力成家計,到得那時在夢中。"

Case 40

Return "平生衣祿是綿長,件件心中自主張,前面風霜多受過,後來必定亨安康。"

Case 41

Return "此命推來事不同,為人能幹異凡庸,中年還有逍遙福,不比前年運未福。"

Case 42

Return "得寬懷處且寬懷,何用雙眉皺不開,若使中年命運濟,那時名利一齊來。"

Case 43

Return "為人心性最聰明,作事軒昂近貴人,衣祿一身天數定,不須勞碌是豐亨。"

Case 44

Return "來事由天苦相求,須知福祿勝前途,當年財帛難如意,晚景忻然使不憂。"

Case 45

Return "名利推來竟若何,前途辛苦後奔波,命中難養男與女,骨肉扶持也不多。"

Case 46

Return "東西南北盡皆通,出姓移居更覺隆,衣祿無虧天數定,中年晚景一般同。"

Case 47

Return "此命推為旺末年,妻榮子貴自怡然,平生原有滔滔福,可有財源如水流。"

Case 48

Return "初年運道未曾亨,若是蹉跎再不興,兄弟六親皆無靠,一身事業晚年成。"

Case 49

Return "此命推來福不輕,自成自立顯門庭,從來富貴人欽敬,使婢差奴過一生。"

Case 50

Return "為利為名終日勞,中年福祿也多遭,老來是有財星照,不比前番目下高。"

Case 51

Return "一世榮華事事通,不須勞碌自亨通,弟兄叔侄皆如意,家業成時福祿宏。"

Case 52

Return "一世榮華事事能,不須勞思自然寧,宗族欣然心皆好,家業豐亨自稱心。"

Case 53

Return "此格推為氣量真,興家發達在其中,一生福祿安排定,卻是人間一富翁。"

Case 54

Return "此命推來厚且清,詩書滿腹看功成,豐衣足食自然穩,正是人間有福人。"

Case 55

Return "走馬揚鞭爭名利,少年作事費籌論,一朝福祿源源至,富貴榮華顯六親。"

Case 56

Return "此格扒來禮義通,一身福祿用無窮,甜酸苦辣皆當過,滾滾財源穩且豐。"

Case 57

Return "福祿豐盈萬事全,一身榮耀顯雙親,名揚威振人欽敬,處世逍遙似遇春。"

Case 58

Return "平生福祿自然來,名利兼全福壽偕,雁塔題名為貴客,紫袍金帶走金階。"

Case 59

Return "細推此格妙且清,必定才高禮義通,甲第之中應有分,揚鞭走馬顯威榮。"

Case 60

Return "一朝金榜快題名,顯祖榮宗立大功,衣祿定然原裕足,田園財帛更豐盈。"

Case 61

Return "不作朝中金榜客,定為世上一財翁,聰明天賦經書熟,名顯高科自是榮。"

Case 62

Return "此命生來福不窮,讀書必定顯親宗,紫衣金帶為卿相,富貴榮華皆可同。"

Case 63

Return "命主為官福祿長,得來富貴實非常,名題金塔傳金榜,定中高科天下場。"

Case 64

Return "此格威權不可當,紫袍金帶坐高堂,榮華富貴誰能及,積玉堆金滿儲倉。"

Case 65

Return "細推此命福不輕,定國安邦極品人,文繡雕梁徵富貴,威聲照耀四方聞。"

Case 66

Return "此格人間一福人,堆金積麗滿堂春,從來富貴由天定,正笏垂紳謁聖君。"

Case 67

Return "此命生來福自宏,田園家業最高隆,平生衣祿盈豐足,一世榮華萬事通。"

Case 68

Return "富貴由天莫苦求,萬金家計不須謀,十年不此前番事,祖業根基水上舟。"

Case 69

Return "君是人間衣祿星,一生富貴眾人欽,縱然福祿由天定,安享榮華過一生。"

Case 70

Return "此命推來福不輕,不須愁慮苦勞心,一生天定衣與祿,富貴榮華主一身。"

Case 71

Return "此命生來大不同,公侯卿相在其中,一生自有逍遙福,富貴榮華極品隆。"

Case Else

Throw New NotSupportedException("不存在的骨重!")

End Select

End Function

End Class




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。