称骨算命的VB.NET类

            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

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18