Premier et dernier jour du mois [Résolu]

Signaler
Messages postés
51
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
2 février 2006
-
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
je cherche une solution pour recuperer le premier et le dernier jour du mois avec la date systeme , pour pouvoir les afficher.
Merci d'avance

2 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
19
Ou simplement ceci
DernierJour = DateAdd("d",-1,DateAdd("m",1,"01/" & Month(Date) & "/" & Year(Date)))


Christophe R.
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 187 internautes nous ont dit merci ce mois-ci

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
64
Salut stephG01
Déjà, je peux te répondre que le 1er jour du mois est toujours ... 1 (sans blague !)
Pour le dernier jour, l'astuce consiste à retirer un jour à la date correspondant au 1er du mois suivant.
En VB6, il suffit de faire :
Mois = Month(Now)
Année = Year(Now)
Mois = Mois + 1If Mois 13 Then Mois 1 : Année = Année + 1
DernierJour = "01/" & CStr(Mois) & "/" & Cstr(Année)
DernierJour = DateAdd("d", -1, DernierJour)
Vois comment l'adapter en VBA ...
Pour Excel, je crois qu'il existe des fonctions toutes faites pour ça

Vala
Jack