Update page 'Date et heure'
parent
b04cdc76c2
commit
072e7432ae
@ -10,4 +10,24 @@
|
|||||||
```
|
```
|
||||||
|
|
||||||
|
|
||||||
|
-----
|
||||||
|
|
||||||
|
|
||||||
|
#### Fonction retournant une date en fonction du numero de semaine de l'année et l'année
|
||||||
|
|
||||||
|
*Paramètre d'entré : weekNumber (numéro de la semaine 1-52)*
|
||||||
|
*Paramètre d'entré : year (année 2018,2019 etc)*
|
||||||
|
*Paramètre de sortie : Date*
|
||||||
|
``` vbnet
|
||||||
|
Public Shared Function GetWeekStartDate(weekNumber As Integer, year As Integer) As Date
|
||||||
|
Dim startDate As New DateTime(year, 1, 1)
|
||||||
|
Dim weekDate As DateTime = DateAdd(DateInterval.WeekOfYear, weekNumber - 1, startDate)
|
||||||
|
Return DateAdd(DateInterval.Day, (-weekDate.DayOfWeek) + 1, weekDate)
|
||||||
|
End Function
|
||||||
|
```
|
||||||
|
|
||||||
|
|
||||||
|
-----
|
||||||
|
|
||||||
|
|
||||||
###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*
|
###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*
|
Loading…
Reference in New Issue
Block a user