Premier et dernier jour du mois

Résolu
stephG01
Messages postés
51
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
2 février 2006
- 22 sept. 2004 à 16:21
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 23 sept. 2004 à 09:31
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

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
23 sept. 2004 à 09:31
Ou simplement ceci
DernierJour = DateAdd("d",-1,DateAdd("m",1,"01/" & Month(Date) & "/" & Year(Date)))


Christophe R.
3
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
22 sept. 2004 à 16:37
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
0