Et encore des dates

Bonjour Richard,

AMA, il vaudrait mieux que tu travailles avec des nombres.
Ainsi, pour JDS = un jour de semaine de 1 à 7 (Lundi à Dimanche)
Pour LaSemaine = nombre de semaine

=7*LaSemaine+DATE(LANNEE;1;3)-JOURSEM(DATE(LANNEE;1;3))-6+JDS

Dans ton cas, tu peux traduire LaSemaine par STXT(Semaine;2;2), ça donne
donc:

=7*STXT(A1;2;2)+DATE(LANNEE;1;3)-JOURSEM(DATE(LANNEE;1;3))-6+
EQUIV(GAUCHE(Jour;2);{"Lu";"Ma";"Me";"Je";"Ve";"Sa";"Di"};0)

Salutations,

Daniel M.

"Richard" <richard.rouvin@wanadoo.fr> wrote in message
news:enPWYGqVDHA.2340@TK2MSFTNGP10.phx.gbl...

Bonjour à tous,


Mon problème est le suivant, (je n'ai rien trouvé sur disciplus)

Je connaît l'année (2003), le jour (Lundi) et la semaine (S23).
Comment puis-je trouver la date ? en l'occurrence Lundi 02 Juin 2003


Merci d'avance,

Richard.

Bonjour,

Avec le n° de semaine en A1 et l'année en B1 :

=7*A2+DATE(B2;1;3)-JOURSEM(DATE(B2;1;3))-5

Camille

-----Message d'origine-----
Bonjour à tous,


Mon problème est le suivant, (je n'ai rien trouvé sur
disciplus)

Je connaît l'année (2003), le jour (Lundi) et la semaine
(S23).

Comment puis-je trouver la date ? en l'occurrence Lundi
02 Juin 2003

Merci d'avance,

Richard.


.

Merci beaucoup à tous les deux,

En fait en fouinant un peu mieux sur Disciplus j'ai trouvé la fonction
suivante qui fonctionne super.

Function LUNDI(annee As Integer, NumSemaine As Integer) As Double
'mpfe B Mazas
'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année
"Annee"

Dim PremierJour As Date

PremierJour = DateSerial(annee, 1, 1)
If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then
'si le 1er janvier tombe un vendredi ou un samedi

PremierJour = PremierJour - Weekday(PremierJour) + 2
Else

PremierJour = PremierJour - Weekday(PremierJour) - 5
End If
LUNDI = PremierJour + 7 * NumSemaine
End Function

Richard

"Ellimac" <PAsDePubellimacNiSpam_cremelier@hotmail.com> a écrit dans le
message news: 0bd601c356a4$987e1190$a501280a@phx.gbl...
Bonjour,

Avec le n° de semaine en A1 et l'année en B1 :

=7*A2+DATE(B2;1;3)-JOURSEM(DATE(B2;1;3))-5

Camille

-----Message d'origine-----
Bonjour à tous,


Mon problème est le suivant, (je n'ai rien trouvé sur
disciplus)

Je connaît l'année (2003), le jour (Lundi) et la semaine
(S23).

Comment puis-je trouver la date ? en l'occurrence Lundi
02 Juin 2003

Merci d'avance,

Richard.


.