2

私は次のコードを持っています:

Public Shared Function DPLoadData() As String
    Dim s As StringBuilder = New StringBuilder("<head><meta http-equiv=""content-type"" content=""text/html;charset=utf-8"" /><META HTTP-EQUIV=""REFRESH"" CONTENT=""900"">")
    s.Append("<style type=""text/css"" media=""all""> body{font-family: Arial;}h4{font-size: 10pt;font-weight: bold;white-space: nowrap;margin-top: 0; margin-bottom: 10px;}")
    s.Append("th{font-size: 9pt;font-weight: normal;text-align: center;white-space: nowrap;}td{font-size: 9pt;}.content td{border: solid 1px #dadada;}")
    s.Append(".content th {border: solid 1px #dadada;background-image: url(""tbl_header_row_bg.gif""); background-repeat: repeat-x; white-space: nowrap;}</style></head>")
    s.Append("<h3>" & "Daily Plan" & "</h3>")
    Dim strCurrDay As String = ""
    s.Append("<h5>" & strCurrDay & "</h5>")

    Dim CurrDateFirstDay As Date = DateAdd(DateInterval.Day, 1, Now)
    strCurrDay = FormatDateTime(CurrDateFirstDay, DateFormat.LongDate)

    s.Append("<h5>" & strCurrDay & "</h5>")
    s.Append(LoadDataGroupByDate(CurrDateFirstDay))
    Return s.ToString()
End Function

この関数は、テーブルを含む HTML ファイルを生成し、そこに予約を入力します。現在、HTML ファイルには明日の予約が表示されます (たとえば、今日が月曜日の場合、火曜日の予約が表示されます)。ここまでは順調ですね。私が望むのは、今日が金曜日の場合、HTML ファイルは土曜日ではなく月曜日の予約を表示する必要があるということです。それは可能ですか？

私の解決策：

        If value.DayOfWeek = DayOfWeek.Friday Then

            Dim CurrDateFirstDay As Date = DateAdd(DateInterval.Day, 3, Now)

            strCurrDay = FormatDateTime(CurrDateFirstDay, DateFormat.LongDate)
            s.Append("<h5>" & strCurrDay & "</h5>")
            s.Append(LoadDataGroupByDate(CurrDateFirstDay))
        Else
            Dim CurrDateFirstDay As Date = DateAdd(DateInterval.Day, 1, Now)

            strCurrDay = FormatDateTime(CurrDateFirstDay, DateFormat.LongDate)
            s.Append("<h5>" & strCurrDay & "</h5>")
            s.Append(LoadDataGroupByDate(CurrDateFirstDay))

        End If
4

1 に答える 1

2

次のようなメソッドを作成する場合:

Public Function GetNextWeekDay() As Date
    Dim value As Date = Date.Now
    Do
        value = value.AddDays(1)
    Loop While (value.DayOfWeek = DayOfWeek.Saturday) Or (value.DayOfWeek = DayOfWeek.Sunday)
    Return value
End Function

次に、次のように変数を設定できます。

Dim CurrDateFirstDay As Date = GetNextWeekDay()
于 2012-12-03T18:00:31.227 に答える