division d une annee en quartiles

[morgan7735]

bonjour, je cherche a diviser des annees en quart mais je veux modifier les dates effectives de ces quarts.
par exemple pour mon premier quart d annee je souhaiterait que celui ci commence le 16 janvier et se termine le 15 avril et que mon deuxieme quart commence le 16 avril et se termine 15 juillet et le 3 quartile 16juillet jusqu au 15octobre et que le 4 eme quartile soit du 16 octobre au 15 janvier de l annee suivante
voila mon souci car je ne vois pas comment le realiser
car j ai un date sous le format suivant annee/mois/jour et a partir de cette colonne la cree des quartiles d annees
merci de votre aide

[Dolphy35]

Bonjour,


Où est le soucis ?


Il suffit de créer une table de correspondance en définissant les dates de tes quarts.

@+

[morgan7735]

ah desole je debute donc je ne comprend pas trop coment le faire merci de l info je vais chercher si tu pouvais me guider pour realiser ce petit probleme

[nico84]

Bonsoir,

Tu peux aussi enlever 15 jours à la date, trouver le mois puis le trimestre :

Code :

int((month(MaDate-15)+2)/3)

[francishop]

Bonsoir,

Pour "jouer", on peut adapter les fonctions conventionnelles en :

Code :

1
2
3
4
5
6
7
8
Function SeizeJourTrimestre(Optional dteTaDate As Date) As Date
' Retourne le 16ème jour du trimestre en cours de la date donnée
' Sinon, par défaut => Date du jour
    If CLng(dteTaDate) = 0 Then
        dteTaDate = Date
    End If
    SeizeJourTrimestre = DateSerial(Year(dteTaDate), Int((Month(dteTaDate) - 1) / 3) * 3 + 1, 16)
End Function

Code :

1
2
3
4
5
6
7
8
Function DerJourTrimesPlus(Optional dteTaDate As Date) As Date
' Dernier jour du trimestre + 15 d'après une date donnée.
' Sinon, par défaut => Date du jour
    If CLng(dteTaDate) = 0 Then
        dteTaDate = Date
    End If
    DerJourTrimesPlus = DateSerial(Year(dteTaDate), Int((Month(dteTaDate) - 1) / 3) * 3 + 4, 15)
End Function

Cordialement.

[morgan7735]

je vous remercie tous pour votre grande aide j ai reussie a le creer grace au table de correspondance merci a tous je vais tester ce que vous proposer pour ma propre culture acces merci infiniment peut etre a bientot
cordialement