天翼翔幻

之前有個在銀行工作的人問了我這個問題，現在我又在小舖上看到有人也問了這個問題
我就小試身手一下，把東西給弄出來(笑~

Function GetAllDate(ByVal StartDate As DateTime, ByVal EndDate As DateTime, ByVal ParamArray ShowDate() As Integer) As System.Collections.Generic.List(Of DateTime)     Dim t As New System.Collections.Generic.List(Of DateTime)     If StartDate.Ticks > EndDate.Ticks Then         Dim _t As DateTime = StartDate         StartDate = EndDate         EndDate = _t     End If     For I As Integer = StartDate.Year To EndDate.Year         For J As Integer = IIf(StartDate.Year = I, StartDate.Month, 1) To IIf(EndDate.Year = I, EndDate.Month, 12)             For Each K As Integer In ShowDate                 If Not ((I = StartDate.Year AndAlso J = StartDate.Month AndAlso K < StartDate.Day) OrElse _                         (I = EndDate.Year AndAlso J = EndDate.Month AndAlso K > EndDate.Day)) Then                     If CheckDateRight(I, J, K) Then                         t.Add(New DateTime(I, J, K))                     End If                 End If             Next         Next     Next     Return t End Function Function CheckDateRight(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As Boolean     Dim M() As Integer = {31, 28, 31, 30, 31, 30, 31, 30, 31, 30, 31, 30}     If Month < 1 OrElse Month > 12 Then Return False     If Day < 1 Then Return False     If Month = 2 AndAlso (Year Mod 400 = 0 OrElse (Year Mod 100 <> 0 AndAlso Year Mod 4 = 0)) Then         Return (Day < 29)     ElseIf Day > M(Month - 1) Then         Return False     End If     Return True End Function

執行 GetAllDate 函數能取回從 StartDate 到 EndDate 期間日期的「日」為指定的時間
最後會以 System.Collections.Generic.List(Of DateTime) 進行回傳

其實程式沒有寫的很好，不過如果以「結果」導向的話，那有成果就行了(笑~~~

至於更進一步的優化... 嗯，看有沒有那位高手要玩吧(汗~~~
至少我短期內不可能這樣玩... 好多事要弄= =a'