Vb.net 在日期范围内插入星期几的记录

我正在想办法做这件事。我一直在做研究，找不到任何我能想到如何使用的东西

我有开始日期、结束日期、重复日期、客户

起始日期=2013年1月4日

截止日期=2013年4月30日

顾客=约翰

重现日=星期一

我想在每个星期一的开始日期和结束日期内为约翰插入一张唱片，有人能帮我吗？vb.net的新功能

---

感谢使用DayofWeek功能检查今天是否是星期一。然后使用Insert命令

Dim startdate As DateTime = Convert.ToDateTime("01 Apr 2013")
Dim enddate As DateTime = Convert.ToDateTime("30 Apr 2013")

Dim DofW = Now.DayOfWeek()
dim recurringday = "Monday"

If now >= startdate And now <= enddate Then
  If DofW = recurringday Then
    'Insert Record
  End If
End If

Dim startdate As DateTime=Convert.ToDateTime（“2013年4月1日”）
Dim enddate As DateTime=转换为ToDateTime（“2013年4月30日”）
Dim DofW=Now.DayOfWeek（）
dim recurringday=“星期一”
如果现在>=startdate，现在@Sweety建议。DayofWeek，但我不确定他的方法是否满足您的要求。试试这个：

    Dim StartDate As DateTime = CDate("01 Apr 2013")
    Dim FinishDate As DateTime = CDate("30 Apr 2013")

    Dim RecurringDay = "Monday"

    Dim Period = FinishDate.Subtract(StartDate).TotalDays

    Dim CurrentDate As DateTime

    For Counter As Integer = 0 To Period
        CurrentDate = StartDate.AddDays(Counter)
        If CurrentDate.DayOfWeek = RecurringDay Then
            'Insert Record
        End If
    Next

试试这个

    Dim StartDate As DateTime = #4/1/2013#
    Dim FinishDate As DateTime = #4/30/2013#

    Dim RecurringDay As Integer = DayOfWeek.Monday

    'force to first RecurringDay
    If RecurringDay < StartDate.DayOfWeek Then StartDate = StartDate.AddDays(7)
    StartDate = StartDate.AddDays(RecurringDay - StartDate.DayOfWeek)

    Do While StartDate <= FinishDate
        Debug.WriteLine(StartDate.ToLongDateString)
        'insert record
        StartDate = StartDate.AddDays(7)
    Loop

Dim StartDate As DateTime=#4/1/2013#
Dim FinishDate作为日期时间=#4/30/2013#
Dim RecurringDay为整数=星期一的DayOfWeek
“强制到第一个重现日
如果重现日