Попытка прибавить 180 к общему количеству, когда будний день - пятница или суббота.

Question

Здравствуйте, я пытаюсь сделать так, чтобы хотя день был меньше даты отъезда, и если день был пятницей или субботой, вместо того, чтобы просто добавлять 160 итогов за каждый день, это добавило бы 180 для просто пятницы и субботы. , Я застрял в операторе if, когда день будет пятницей или субботой.

Это мой код:

    Dim arrival As Date = CDate(txtArrivalDate.Text)
    Dim Departure As Date = CDate(txtDepartureDate.Text)
    Dim Days As Long = DateDiff(DateInterval.Day, arrival, Departure)
    Dim Total As Long = 160 * Days
    Dim Day As Date = arrival

    While (Day <= Departure)
        If CBool(Day.DayOfWeek.Friday And Day.DayOfWeek.Saturday) Then
            Total += 180
        End If
        Day = Day.AddDays(1)
    End While

Answer 1

Ваш код vb.net, а не vba. ; -)

Это правильное условие, если я вас правильно понял:

If Day.DayOfWeek = DayOfWeek.Friday Or Day.DayOfWeek = DayOfWeek.Saturday Then