for (DateTime d = new DateTime(y, m, 1);
d.Month == m; d = d.AddDays(1)) {
if (d.DayOfWeek == DayOfWeek.Sunday) {
days.Add(d);
}
}
return days.ToArray();
}
}
// コンパイル方法:csc sundays.cs
For Each d As DateTime In days
Console.WriteLine(d)
Next
' 出力:
' 2008/09/07 0:00:00
' 2008/09/14 0:00:00
' 2008/09/21 0:00:00
' 2008/09/28 0:00:00
End Sub
Shared Function GetSundays(ByVal y As Integer, ByVal m As Integer) As DateTime()
Dim days As New List(Of DateTime)()
Dim d As DateTime = New DateTime(y, m, 1)
While d.Month = m
If d.DayOfWeek = DayOfWeek.Sunday Then
days.Add(d)
End If
d = d.AddDays(1)
End While