Update page 'Date et heure'

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*