subtract if the day of the week is a saturday or sunday

if the subtracted date is a saturday or sunday then subtract more days, before adding to arraylist

when i do this, the date stays the same and doesnt subtract, i get a conversion string to double error

Dim aftersubtraction As Date
                    Dim fromatafter As Date
                    aftersubtraction = departuredate.AddDays(-dates1.Text)
                    fromatafter = aftersubtraction.AddDays(-gracep.Text)

                    If fromataf开发者_运维技巧ter.DayOfWeek = "Saturday" Then
                        fromatafter.AddDays(-1)
                        dates.Add(fromatafter.ToString("MM/dd/yyyy"))
                    ElseIf fromatafter.DayOfWeek = "Sunday" Then
                        fromatafter.AddDays(-2)
                        dates.Add(fromatafter.ToString("MM/dd/yyyy"))
                    Else
                        dates.Add(fromatafter.ToString("MM/dd/yyyy"))
                    End If

---

While fromatafter.DayOfWeek = DayOfWeek.Saturday OrElse fromatafter.DayOfWeek = DayOfWeek.Sunday
    fromatafter = fromatafter.AddDays(-1)
End While
dates.Add(fromatafter.ToString("MM/dd/yyyy"))

You have to assigne the date returned from AddDays to your variable.

And please set option strict and explicit. Why?

---

if im not mistaken the vb dayofweek function returns an integer and not a string.

' 0 = Sunday ' 1 = Monday ' 2 = Tuesday ' 3 = Wednesday ' 4 = Thursday ' 5 = Friday ' 6 = Saturday

hence the error message.

your getting the string to double error on the

line with the if statement... becase .dayofweek does not return a string... it returns an integer... so an integer is never going to be = "Saturday" or "Sunday"... its going to be equal to 0 or 1