Update page 'Date et heure'

Th3maz1ng 2019-03-18 17:02:16 +01:00
parent 07b4759ff3
commit ad7514bcb2

@ -3,7 +3,7 @@
*Paramètre d'entré : rien*
*Paramètre de sortie : Date*
``` VBS
``` VBA
Public Shared Function GetDateWithDayAsMonday() As Date
Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1)
End Function