0

私はこれを行う方法を理解しようとしています。調査を行っていますが、使用方法を理解できるものは何も見つかりません。

startdate、enddate、recurringday、customer があります

開始日 = 2013 年 4 月 1 日

終了日 = 2013 年 4 月 30 日

顧客 = ジョン

recurringday = 月曜日

毎週月曜日の startdate と enddate の間に john のレコードを挿入したいのですが、誰か助けてもらえますか? vb.net の新機能

ありがとう

4

3 に答える 3

0

DayofWeek 関数を使用して、今日が月曜日かどうかを確認します。次に、挿入コマンドを使用します。

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
于 2013-04-17T04:55:43.583 に答える
0

@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
于 2013-04-17T07:38:49.440 に答える
0

これを試して。 

    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
于 2013-04-17T13:22:26.813 に答える