32
Date et heure
Th3maz1ng edited this page 2019-07-18 10:24:33 +02:00
Table of Contents
Date et heure
Retour
Fonction retournant le premier jour de la semaine actuelle
Paramètre d'entré : vide
Paramètre de sortie : Date
Public Shared Function GetDateWithDayAsMonday() As Date
Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1)
End Function
Fonction retournant une date par rapport au numero de semaine et de 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
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