Premier et dernier jour du mois [Résolu]

Question

Posez votre question Signaler Répondre au sujet

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

Visual Basic Posez votre question Signaler Répondre au sujet

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

Signaler Commenter la réponse de cs_Jack

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

Utile

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

Accepted Answer

+1

Utile

Ou simplement ceci

DernierJour = DateAdd("d",-1,DateAdd("m",1,"01/" & Month(Date) & "/" & Year(Date)))

Christophe R.

Cette réponse vous a-t-elle aidé ? Oui Non

Premier et dernier jour du mois [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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