確定星座和出生日期

Question

嘿，我需要在vb.net中製作一個程序，要求用戶的生日。該計劃應該給出該人出生的星期幾和他們的占星術星座。有誰能夠幫助我？？請！

Answer 1

Private Function Zodiac(ByVal Birthday As Date) As String 
    Dim year As Integer = Birthday.Year 
    Dim zodiacs = { 
    New With {.From = New Date(year, 1, 1), .[To] = New Date(year, 1, 19), .Zodiac = "Capricorn"}, 
    New With {.From = New Date(year, 1, 20), .[To] = New Date(year, 2, 18), .Zodiac = "Aquarius"}, 
    New With {.From = New Date(year, 2, 19), .[To] = New Date(year, 3, 20), .Zodiac = "Pisces"}, 
    New With {.From = New Date(year, 3, 21), .[To] = New Date(year, 4, 19), .Zodiac = "Aries"}, 
    New With {.From = New Date(year, 4, 20), .[To] = New Date(year, 5, 20), .Zodiac = "Taurus"}, 
    New With {.From = New Date(year, 5, 21), .[To] = New Date(year, 6, 20), .Zodiac = "Gemini"}, 
    New With {.From = New Date(year, 6, 21), .[To] = New Date(year, 7, 22), .Zodiac = "Cancer"}, 
    New With {.From = New Date(year, 7, 23), .[To] = New Date(year, 8, 22), .Zodiac = "Leo"}, 
    New With {.From = New Date(year, 8, 23), .[To] = New Date(year, 9, 22), .Zodiac = "Virgo"}, 
    New With {.From = New Date(year, 9, 23), .[To] = New Date(year, 10, 22), .Zodiac = "Libra"}, 
    New With {.From = New Date(year, 10, 23), .[To] = New Date(year, 11, 21), .Zodiac = "Scorpio"}, 
    New With {.From = New Date(year, 11, 22), .[To] = New Date(year, 12, 21), .Zodiac = "Sagittarius"}, 
    New With {.From = New Date(year, 12, 22), .[To] = New Date(year, 12, 31), .Zodiac = "Capricorn"}} 

    Return (From z In zodiacs Where (z.From <= Birthday And Birthday <= z.[To])).Single.Zodiac 
End Function 

第一，蹩腳的嘗試：

Private Function Zodiac(ByVal Birthday As Date) As String 
    Dim year As Integer = Birthday.Year 
    Dim sodiacCapricorn() As DateTime = {New DateTime(year, 12, 22), New DateTime(year, 1, 19)} 
    Dim sodiacAquarius() As DateTime = {New DateTime(year, 1, 20), New DateTime(year, 2, 18)} 
    Dim sodiacPisces() As DateTime = {New DateTime(year, 2, 19), New DateTime(year, 3, 20)} 
    Dim sodiacAries() As DateTime = {New DateTime(year, 3, 21), New DateTime(year, 4, 19)} 
    Dim sodiacTaurus() As DateTime = {New DateTime(year, 4, 20), New DateTime(year, 5, 20)} 
    Dim sodiacGemini() As DateTime = {New DateTime(year, 5, 21), New DateTime(year, 6, 20)} 
    Dim sodiacCancer() As DateTime = {New DateTime(year, 6, 21), New DateTime(year, 7, 22)} 
    Dim sodiacLeo() As DateTime = {New DateTime(year, 7, 23), New DateTime(year, 8, 22)} 
    Dim sodiacVirgo() As DateTime = {New DateTime(year, 8, 23), New DateTime(year, 9, 22)} 
    Dim sodiacLibra() As DateTime = {New DateTime(year, 9, 23), New DateTime(year, 10, 22)} 
    Dim sodiacScorpio() As DateTime = {New DateTime(year, 10, 23), New DateTime(year, 11, 21)} 
    Dim sodiacSagittarius() As DateTime = {New DateTime(year, 11, 22), New DateTime(year, 12, 21)} 

    Select Case Birthday.DayOfYear 
    Case 1 To sodiacCapricorn(1).DayOfYear, sodiacCapricorn(0).DayOfYear To 366 
     Return "Capricorn" 
    Case sodiacAquarius(0).DayOfYear To sodiacAquarius(1).DayOfYear 
     Return "Aquarius" 
    Case sodiacPisces(0).DayOfYear To sodiacPisces(1).DayOfYear 
     Return "Pisces" 
    Case sodiacAries(0).DayOfYear To sodiacAries(1).DayOfYear 
     Return "Aries" 
    Case sodiacTaurus(0).DayOfYear To sodiacTaurus(1).DayOfYear 
     Return "Taurus" 
    Case sodiacGemini(0).DayOfYear To sodiacGemini(1).DayOfYear 
     Return "Gemini" 
    Case sodiacCancer(0).DayOfYear To sodiacCancer(1).DayOfYear 
     Return "Cancer" 
    Case sodiacLeo(0).DayOfYear To sodiacLeo(1).DayOfYear 
     Return "Leo" 
    Case sodiacVirgo(0).DayOfYear To sodiacVirgo(1).DayOfYear 
     Return "Virgo" 
    Case sodiacLibra(0).DayOfYear To sodiacLibra(1).DayOfYear 
     Return "Libra" 
    Case sodiacScorpio(0).DayOfYear To sodiacScorpio(1).DayOfYear 
     Return "Scorpio" 
    Case sodiacSagittarius(0).DayOfYear To sodiacSagittarius(1).DayOfYear 
     Return "Sagittarius" 
    Case Else 
     Return "?" 
    End Select 
End Function 

使用annomous類型和一個整潔的LINQ說法是方式更具有可讀性恕我直言。