Calcul de la date correspondant au jeudi

[caton47]

Bonjour,

Je cherche la formule permettant de restituer la date correspondant au premier jeudi d'une année donnée (exemple: à quelle date correspond le premier jeudi de l'année 2000?).

Merci.

 

[HIJACK]

Re : Calcul de la date correspondant au jeudi

HI!

Sub Macro2()
Dim aze As Date

aze = "01/01/05" ' mettre 1er jour annee
a = 0
a = DatePart("w", aze)
a = 5 - a
If a < 0 Then a = a + 7

Resultat = DateAdd("d", a, aze)


End Sub

♫♫

 

[Mytå]

Re : Calcul de la date correspondant au jeudi

Salut le forum

Essaye ceci

=SI(ANNEE(DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7))<A2;DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7)+7;DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7))

Mytå

 

[TooFatBoy]

Re : Calcul de la date correspondant au jeudi

Si c'est une formule dans une cellule que tu veux, tu peux aussi essayer ça :
=DATE(B4;1;1)+MOD(10-JOURSEM(DATE(B4;1;1);3);7)
en supposant que la cellule B4 contienne l'année en question.


PS : le premier jeudi de l'an 2000 est le 6 janvier.

 

[hoerwind]

Re : Calcul de la date correspondant au jeudi

Bonjour, salut les autres,

Une autre formule :
A1 : l'année
=DATE(A1;1;1)+4-JOURSEM(DATE(A1;1;1);2)+(JOURSEM(DATE(A1;1;1);2)>4)*7
Le 4 dans la formule correspond au jeudi.

 

[caton47]

Re : Calcul de la date correspondant au jeudi

Bonsoir,

J'ai essayé les 3 formules et toutes donnent le même résultat. Merci à tout le monde y compris à Hijack pour sa macro que je n'ai pas testée.

 

[TooFatBoy]

Re : Calcul de la date correspondant au jeudi

A ton service.

 

[ROGER2327]

Re : Calcul de la date correspondant au jeudi

Bonsoir

La procédure de HIJACK fonctionne aussi et on peut l'arranger en une courte fonction :

[COLOR="DarkSlateGray"]Function JEUDI(A)
   JEUDI = DateAdd("d", DateSerial(A, 1, 13), 7 * (6 > DatePart("w", DateSerial(A, 1, 1))) - DatePart("w", DateSerial(A, 1, 1)))
End Function[/COLOR]

A étant le millésime.
=JEUDI(2010) renvoie 40185 qui, formaté en date, donne jeudi 7 janvier 2010.​

ROGER2327