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

A voir également:

Dernier jour du mois vba
Vba dernier jour du mois - Meilleures réponses
Vba mois en cours - Meilleures réponses
Date de fin de mois ✓ - Forum - Visual Basic 6
Dernier jour du mois - Forum - Visual Basic
Vba dernier jour du mois ✓ - Forum - VB.NET
Afficher mois en cours - Forum - Visual Basic
SQL : Sql server - obtenir la date du dernier jour du mois (get last day of month). - CodeS SourceS - Guide

2 réponses

Réponse 1 / 2

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.

Réponse 2 / 2

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

sur les mêmes thèmes