Calculer et afficher des valeurs de dates spécifiques

Comme une valeur de date est stockée comme un nombre en double précision, il se peut que vous obteniez des résultats de mise en forme incorrects lorsque vous essayez de manipuler des valeurs de date dans une expression. Cette rubrique montre comment créer des expressions et des fonctions personnalisées pour afficher des dates spécifiques et calculer des intervalles de temps.

Mois en cours

DateSerial(Year(Date()), Month(Date()), 1)

Mois suivant

DateSerial(Year(Date()), Month(Date()) + 1, 1)

Dernier jour du mois en cours

DateSerial(Year(Date()), Month(Date()) + 1, 0)

Dernier jour du mois suivant

DateSerial(Year(Date()), Month(Date()) + 2, 0)

Premier jour du mois précédent

DateSerial(Year(Date()), Month(Date())-1,1)

Dernier jour du mois précédent

DateSerial(Year(Date()), Month(Date()),0)

Premier jour du trimestre en cours

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)

Dernier jour du trimestre en cours

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)

Premier jour de la semaine en cours (en supposant que dimanche = jour 1)

Date() - WeekDay(Date()) + 1

Dernier jour de la semaine en cours

Date() - WeekDay(Date()) + 7

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.