Public Class Classchg
Private vweight as integer = 0
Private VResultword As String
'vdate format is: 1978-8-10
The 'VTIME value is:
'Sub: 子 (23: 00 ~ 1: 00)
'Ugly: ugly (1: 00 ~ 3: 00)
': (3: 00 ~ 5: 00)
': (5: 00 ~ 7: 00)
'Chen: Chen (7: 00 ~ 9: 00)
': (9:00 ~ 11: 00)
'Niddigh: Mid (11: 00 ~ 13: 00)
'No: No (13: 00 ~ 15: 00)
'Shen: Shen (15: 00 ~ 17: 00)
'酉: (17:00 ~ 19: 00)
': (19: 00 ~ 21: 00)
'Hai: Hai (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 5case 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 7case 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 ("This function only provides time conversion from 1900 to 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 INTEGERSELECT CASE TIME
Case "child": return 16
Case "Ugly": Return 6
Case "": Return 7
Case "": return 10
Case "Chen": Return 9
Case "": return 16
Case "noon": return 10
Case "Not": Return 8
Case "Shen": Return 8
Case "酉": return 9
Case "": Return 6
Case "Hai": Return 6
End SELECT
END FUNCTION
Function GetResultword (Byval value as integer) AS String
SELECT CASE VALUE
Case 22
Return "The cold bones is cold, this life is promoted, the blindstorm is invincible,"
Case 23
"Return" This life is pushing from light, and it is difficult to seek things, and the wife and children will be unbelieved.
Case 24
Return "This life is pushed to Fu Lu, the door is difficult, and the six pro-bone meat is not relied, and it has flowed to his hometown."
Case 25
Return "This life is promoted to the ancestral ministry, the door is in a rare, six pro-flesh, such as ice charcoal, one difficult to hold it."
Case 26
RETURN "Pingchao is in the middle of life, there is no effort alone, and it should be taken out from the ancestors."
Case 27
Return "has a little business in a lifetime, it is difficult to rely on the ancestors.
Case 28
Return "acts in a lifetime, the ancestral industry is in the dream, if the room is not changed, it is also a migrants."
Case 29
"Return" The first year of transportation has not been hung, and it is necessary to have a fame in four days. It is necessary to change the surname. "
Case 30
Return "Work hard, the east is going to Xerb, Ye Dayuan, suffering for life and fattening, older can avoid worrying."
Case 31
Return "is busy and hard to ask, He Niyun sees the sun, it is rare to stand up, middle-aged food, food, food, and food."
Case 32
"Return" is difficult to make a problem, gradually financial resources such as water flow, to the middle-aged food, food, come together. "
Case 33
Return "is increasing early in the early years, hundreds of live labor, half generation, come to the water, then transported gold."
Case 34
"How is this life, a lot of people in Zhigang, a lot of people from the ancestors, and finally worship Buddha."
Case 35
Return "Live Fuxing Not Zhou Quan, the ancestral root base is not passed, the business career should be old, and the clothes will come to the past."
Case 36
Return "Do not have to work, it is not light, and there is a Fuxing Changshi, and Ren Jun goes well."
Case 37
"This is the same, the brothers are solely, although the ancestral industry must be slightly, it will be unknown."
Case 38
Return "is the cleaner, early enrollment door name is marked, and the year will be 36, blue shirt take off the red robes."
Case 39
Return "This life is not good, the labor work is overshadowed, worry hard to make a family plan, to get in the dream at that time."
Case 40
Return "Pingye Lu is long, the part is self-directed, and the front wind cream has been heard, and he will definitely Wengkang."
Case 41
"Return" is different, for people to do it, middle age is happy, not blessed than the previous year. "
Case 42
"It is ruthless and covered by RETURN, why doesn't use a double eyebrow, if you make middle age, the fame and fortune came."
Case 43
"Return is the smartest, and the workers are the same as the nature, and the clothes are not necessarily."
Case 44
Return's thing is from the barters, and must know the future of Fon Sheng, which is hard to be happy, and the evening is unfair. "
Case 45
RETURN "The fame and fortune are actually, the future is hard, and the bones are difficult to raise, and the bone is not supported."
Case 46
Return "Everything is all in the north and south, the surname is even more imperative, and the Yulu has no loss days, the middle-aged evening is generally."
Case 47
"This life is promoted to the year, the wife Rongzi is blessed from Yiran, the original is the same, but there can be financial resources such as water."
Case 48
"Return" is not once, if it is not unresolved, brothers six pro will not rely on, and the cause is successful. "
Case 49
"This life is blessed, self-sufficient, the door, won the rich people to respect, so that the devil is a lifetime."
Case 50
Return "is a good life day, middle-aged Fulu is also more, and it is always a fortune, not higher than before."
Case 51
RETURN "One Ronghua Everything, does not have to worry from Hengtong, the brothers and sorrows, the family is time, Fu Luhong."
Case 52
Return "One Ronghua Event, do not have to stay in Natural Nature, the clan is happy, family business is self-proclaimed."
Case 53
"This color is promoted to the gas, and the family is developed, and the Folo is arranged, but it is a rich man in the world."
Case 54
Return "This life is pushing and clear, the poem is full of abdomen, and the festive food is naturally stable. It is a blessing in the world."
Case 55
Return "Take Ma Yang's words"
Case 56
Return "This hand is tentative, and the song is infinite, sweet and bitter, and it is rolling and sapping."
Case 57
Return "Fulu Feng Ying all the event, a glory of the double pro, the famous Yangwei Zhen people admire, and the world is like a spring."
Case 58
Return "Pingful is coming, fame and full of Fusheng, Yanta Tsi is a guest, the purple robe is taken away." Case 59
Return "pushes this color and clear, it must be high, and there should be points in the first, and the whip will go to the horse."
Case 60
RETURN "One Dynasty gold list fast question name, the ancestor is ancestral, Yulu will remain the original opuke, the idyllic wealth is more abundant."
Case 61
Return "does not make a golden list, it is the same as a weangn, and the smart days are familiar with the name, and the famous high-tech is proud."
Case 62
Return "This life is not bad, and the reading must be developed, and the Ziyi Gold Belt is Qing Xiang, and the rich and Ronghua are all."
Case 63
Return "The Lord is the master of the official, and it is very valuable, the famous gold tower passed the gold list, the fixed high school day."
Case 64
Return "This Gem is unfair, the purple robe is sitting on the Gaotang, Ronghua Weighing who can, and the jade is full of gold storage."
Case 65
Return "is fine, the blessings are not light, the national security is the best people, the embroidery carving is rich, and the wear of the four areas."
Case 66
Return "This family is a blessing, the pile of gold is full of spring, and we will be rich by the Tian Di, Zhengwat Yizhen."
Case 67
"This life is coming to Fu Zihong, the venue is the highest, the Pingchao Lu Yingfeng is full, and the world has a Ronghua MasterCot."
Case 68
RETURN "Fugui is from Tian Mo, Wanjin family does not need to seek, ten years does not work before, and the ancestral roots are boat."
Case 69
Return "is the human clothes, and the people are rich in the people. Even if Flu is determined, enjoy the lifetime of Ronghua."
Case 70
Return "This life is not light, you don't have to worry about bitterness, your life is stunned and Lu, rich and prosperous."
Case 71
Return "This life is coming, the public is in it, there is a happy life, and the rich and Ronghua is very popular."
Case Else
Throw new NotSupportedException ("No bones exist!")
End SELECT
END FUNCTION
END CLASS
