diff --git a/Date-et-heure.md b/Date-et-heure.md index f824dff..ee2a916 100644 --- a/Date-et-heure.md +++ b/Date-et-heure.md @@ -1,8 +1,9 @@ # [[Date et heure|Home]] #### Fonction retournant le début de semaine de la semaine actuelle (le lundi) -##### *Paramètre d'entré : rien* -##### *Paramètre de sortie : Date* -``` VB + +*Paramètre d'entré : rien* +*Paramètre de sortie : Date* +``` VBS Public Shared Function GetDateWithDayAsMonday() As Date Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1) End Function