Récupération d'une date [Résolu]

Signaler
Messages postés
30
Date d'inscription
dimanche 16 avril 2006
Statut
Membre
Dernière intervention
4 janvier 2011
-
Messages postés
30
Date d'inscription
dimanche 16 avril 2006
Statut
Membre
Dernière intervention
4 janvier 2011
-
Bonjour,
Je suis en train de créer un petit planning avec affichage par semaine en commençant par le lundi.
Lors de l'ouverture de la form, je voudrais commençer par le lundi de la semaine en cours.
Quelqu'un pourrait il me dire si une fonction permet cela ?

Je débute en VB, soyez indulgent ...
sidus

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
Calcul de la date du lundi de la semaine :
        Dim maDate As Date = "18/12/2009"
        Dim DayNo As Short = DatePart(DateInterval.Weekday, maDate, _
                                      FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
        Dim DateLundi As Date = DateAdd(DateInterval.Day, 1 - DayNo, maDate)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
30
Date d'inscription
dimanche 16 avril 2006
Statut
Membre
Dernière intervention
4 janvier 2011

Génial !

Je te remercie

sidus