Premier et dernier jour du mois [Résolu]

stephG01 51 Messages postés dimanche 22 février 2004Date d'inscription 2 février 2006 Dernière intervention - 22 sept. 2004 à 16:21 - Dernière réponse : crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention
- 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
Afficher la suite 

2 réponses

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


Christophe R.

Merci crenaud76 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 22 sept. 2004 à 16:37
0
Merci
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.