Th3maz1ng/MyRealKmProdWiki
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update page 'Date et heure'

Th3maz1ng 2019-03-18 17:02:16 +01:00
parent 07b4759ff3
commit ad7514bcb2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Date-et-heure.md

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