Soustraire si le jour de la semaine est un samedi ou un dimanche

Question

si la date soustraites est un samedi ou un dimanche soustrayez jours de plus, avant d'ajouter à Arraylist

quand je le fais, la date reste la même et ne marche pas Soustraire , je reçois si je ne suis pas confondu avec la chaîne de conversion double erreur

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

        If fromatafter.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 

Answer 1

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

Vous devez la date de retour assigne de AddDays à votre variable. Veuillez définir l'option strict et explicitWhy?

Answer 2

la fonction vb DAYOFWEEK retourne un entier et non une chaîne.

'0 = dimanche ' 1 = lundi '2 = mardi ' 3 = mercredi '4 = jeudi ' 5 = vendredi '6 = samedi

d'où le message d'erreur.

votre obtenir la chaîne à double erreur sur le

ligne avec l'instruction if ... becase .dayofweek ne renvoie pas une chaîne ... il retourne un entier ... donc un entier ne va jamais be = "samedi" ou "dimanche" ... sa va être égal à 0 ou 1