From 6656644e5ed66cde10da79f774f8986300718865 Mon Sep 17 00:00:00 2001 From: Th3maz1ng Date: Mon, 18 Mar 2019 16:37:16 +0100 Subject: [PATCH] Update page 'Date et heure' --- Date-et-heure.md | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Date-et-heure.md b/Date-et-heure.md index 38ebe9f..35c269d 100644 --- a/Date-et-heure.md +++ b/Date-et-heure.md @@ -1,5 +1,12 @@ # [[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 + Public Shared Function GetDateWithDayAsMonday() As Date + Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1) + End Function +``` ###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci* \ No newline at end of file