32 Date et heure
Th3maz1ng edited this page 2019-07-18 10:24:33 +02:00

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

Si vous avez des suggestions d'ajouts, de corrections, m'en faire part Merci

Dernière maj : 18/07/2019