Discussion :

[Deustalos]

Bonjour à tous je souhaiterais obtenir à partir de la date systéme le dernier jour du mois dernier; par exemple : Nous somme le 17/03/2010 et à partir de cela j'aimerai obtenir 28/02/2010.

Je connais la fonction pour obtenir la date de fin du mois en cours mais pas pour le mois précédant???

Bien sur je souhaite utiliser cela dans une requéte access

Merci beaucoup d'avance pour votre précieuse aide.

Alex

[f-leb]

bonjour,

aaahh la la les fonctions Date/heure...

[Invité]

Bonjour,

A priori, si vous connaissez la date de fin pour le mois en cours, pour la date de fin du mois précédent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Date_fin_prec =  DateAdd( "m", -1, Date_fin)

[78chris]

Bonjour

dans une requête ou un formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SérieDate(Année(Date());Mois(Date());0)

[Deustalos]

Merci à tous pour votre aide;

Je mets la solution pour ceux qui serait dans le même cas que moi;

Code du module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function LastDayOfLastMonth(ByVal LaDate As Date) As Date
    LastDayOfMonth = CDate(DateSerial(Year(LaDate), Month(LaDate) + 1, 0))
    LastDayOfLastMonth = DateAdd("m", -1, LastDayOfMonth)
End Function

Syntaxe de la requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DATE DU DERNIER JOUR: SérieDate(Année(LastDayOfLastMonth(Date()-1/1/1));Mois(LastDayOfLastMonth(Date()-1/1/1));Jour(LastDayOfLastMonth(Date()-1/1/1)))

Merci à tous pour votre précieuse aide

Alex

[Progi1984]

Pour régler le problème du mois de décembre (http://vb.developpez.com/faq/?page=Dates#der_jour_mois):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Reponse As Date
 
If Month(Date) = 12 Then
    Reponse = CDate("01/01" & "/" & Year(Date) + 1)
Else
    Reponse = CDate("01/" & Month(Date) + 1 & "/" & Year(Date))
End If
Reponse = DateAdd("d", -1, Reponse)
 
MsgBox Reponse