1

VB.netで、今日の日付をどのように伝えますか。そして、次の週の月曜日または金曜日の日付を見つけます。今日が木曜日で、次の金曜日を検索している場合、明日の日付が必要ですか？

4

2 に答える 2

2

DayOfWeek列挙を使用して、これを見つけることができます。

Private Function GetNextDate(day As DayOfWeek) As DateTime
    Dim now As DateTime = DateTime.Today
    Dim today As Integer = CInt(now.DayOfWeek)
    Dim find As Integer = CInt(day)

    Dim delta As Integer = find - today
    If delta > 0 Then
        Return now.AddDays(delta)
    Else
        Return now.AddDays(7 - delta)
    End If
End Function

あなたの例を使用して、あなたが呼び出す場合：

Dim date = GetNextDate(DayOfWeek.Friday)

あなたは明日の日付を取得します

于 2012-10-06T00:05:26.773 に答える
0 
 Private Function NextMonday() As String
        Dim Tdate = DateTime.Now.AddDays(1)
        Do While Tdate.DayOfWeek <> DayOfWeek.Monday
            Tdate = Tdate.AddDays(1)
        Loop
        Return Tdate.ToShortDateString()
    End Function
于 2019-01-08T15:46:31.677 に答える