Discussion :

[sihammaster]

Bonjour,
je voudrais signaler à l'utilisateur de mon application de faire une sauvegarde des données à chaque vendredi.
j'aimerais que le code affiche un message si la date d'aujourd'hui est vendredi.
Si quelq'un a des idées je serai preneure. Merci d'avance.

[meziantou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If DateTime.Now.DayOfWeek = DayOfWeek.Friday Then
    ' Prévient l'utilisateur
End If

[sihammaster]

Merci ca marche, mais j'ai eu un autre socci, je voudrais faire le meme traitement pour le dernier vendredi du mois s'il vous plait veuillez me derigé Merci.

[meziantou]

Pour savoir s'il s'agit du dernier vendredi du mois il suffit de connaitre le nombre de jour dans le mois (28,29,30,31). Ensuite tu compares avec le jour courant. Si la différence est inférieure strict à 7 jours, alors tu est dans la dernière semaine.

Par exemple ce mois-ci le nombre de jours est 31. Vendredi 30 est le dernier car 31 - 30 = 1 qui est inférieur strict à 7. Par contre le 23 n'est pas le dernier vendredi 31 - 23 = 8 n'est pas inférieur strict à 7.

[sihammaster]

Je vois pas d'ou commencer veuillez m'aider svp

[sihammaster]

c Fait voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Public Function LAstDay(ByVal dt As Date, ByVal wd As DayOfWeek) As Date
        Dim t As New Date(dt.Year, dt.Month, Date.DaysInMonth(dt.Year, dt.Month))
        Dim delta As Integer = Integer.Parse(t.DayOfWeek) - Integer.Parse(wd)
        Return IIf(delta < 0, t.AddDays(-(7 + delta)), t.AddDays(-delta))
    End Function

Probleme resolu