Discussion :

[Beetle]

Bonjour,

Je cherche a developper l'algo qui permet de retourner la date en fonction des parametres suivants : Annee, Semaine, Journee.

En d'autres termes, on recherche par exemple la date du LUNDI de la semaine 28 de l'annee 2008.

J'ai donc developper une methode, cependant j'ai qq soucis y'a toujours qq chose qui deconne :S

Je vous post le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
PROCEDURE RetJourSem(pAnnee,pSem,pJour="LUNDI")
 
LOCAL
	nJourRch	est un entier
	nJourAn		est un entier
	nJourTot	est un entier
	nDec		est un entier
	dDate		est une Date
 
//NUMERO DU JOUR DU PREMIER DE L'AN
nJourAn = DateVersJour(pAnnee+"0101")
 
//NUMERO DU JOUR RECHERCHE
SELON pJour
	CAS "LUNDI" 	: nJourRch = 1
	CAS "MARDI" 	: nJourRch = 2
	CAS "MERCREDI" 	: nJourRch = 3
	CAS "JEUDI" 	: nJourRch = 4
	CAS "VENDREDI" 	: nJourRch = 5
	CAS "SAMEDI" 	: nJourRch = 6
	CAS "DIMANCHE" 	: nJourRch = 7
	AUTRE CAS
		Erreur("Le passage du paramètre n°3 est incorrect.")
		RENVOYER ""	
FIN
 
//DETERMINE LA VALEUR A DECREMENTER
SELON nJourAn
	CAS 1,2,3,4 	: nDec = 1
	CAS 5,6,7	: nDec = 0
FIN
 
//FORMATER NUMERO DE SEMAINE
SI pSem = 0 ALORS
	SELON nJourRch
		CAS 1,2,3,4
			pAnnee = Val(pAnnee)-1
			pSem = "53"
			RENVOYER RetJourSem(pAnnee,pSem,pJour)
		CAS 5,6,7
			SI nJourRch < nJourAn ALORS
				pAnnee = Val(pAnnee)-1
				pSem = "52"
				RENVOYER RetJourSem(pAnnee,pSem,pJour)
			FIN
	FIN
FIN
 
//CALCUL DU NB JOUR ECOULE PAR RAPPORT A LA REFENRENCE HF
nJourTot = DateVersEntier(pAnnee+"0101")+7*(Val(pSem)-nDec)-(nJourAn-nJourRch)
 
//CONVERTION AU FORMAT DATE
dDate = EntierVersDate(nJourTot)
 
RENVOYER dDate

Donc si quelqu'un voit un probleme il peut me wisp Merci d'avance.

[Emmanuel Lecoester]

en calculant le nombre de jour depuis le premier jour de la permière semaine de l'année ? car à partir du jour de l'an çà ne marche pas. Sauf peut-être en récupérant le jour et la semaine du 01/01/2008 et en se seravnt de çà comme offset négatif

Mais comme toujours... en semaine ISO, en semaine calendrier ?

[Finar]

Bonjour,

J'ai mis au point un algo répondant à ce besoin il y a quelques temps... (fonctionnel etc, bien sur).

Je regarderais ce midi si je peux le retrouver

[Beetle]

Ca serait sympa oui car je n'arrive pas a trouver le bon algo :S En plus je ne trouve pas une seule source identique sur ce sujet :S

[Finar]

Alors...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
// Le code d'appel :
dDateEnCours est une Date = RenvoitPremierJourSemaine(SAI_Semaine, SAI_Annee) 
 
// La procédure RenvoitPremierJourSemaine
PROCEDURE RenvoitPremierJourSemaine(nNumeroSemaine, nAnnee)
 
dPremierJour est une Date
// Le 4 janvier est TOUJOURS présent dans la première semaine de l'année,
// on l'utilise donc comme date de référence pour se placer sur la première semaine de l'année
dPremierJour..Année = nAnnee
dPremierJour..Mois = 1
dPremierJour..Jour = 4
 
// On se positionne sur le lundi de cette première semaine
dPremierJour..Jour -= EntierVersJour(dPremierJour) - 1
// Puis on incrémente selon la semaine passée en parametre
dPremierJour..Jour += 7 * (nNumeroSemaine - 1)
 
RENVOYER dPremierJour

La procédure renvoit le premier jour de la semaine pour une semaine et une année. A partir de la, il n'y a plus qu'a incrémenter selon le jour de la semaine désiré :

Code :

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

1
2
3
4
5
 
// Pour le mardi :
dDateEnCours+=1
// Le jeudi :
dDateEnCours +=3

Sauf erreur de ma part, c'est fonctionnel et stable

[Beetle]

Je poste ma procédure avec le code de Finar. Le résultat est plutôt bon mais il faut savoir que Windev gère la semaine "53" et "0". Par conséquent si tu passes les paramètres suivants : Année = "2008" et Semaine = "1" la fonction va bien te retourner "31/12/2007". Cependant il considère que cette date fait partie de la semaine "53".

Du coup il y a p'tete quelques adaptions à faire mais ça fonctionne plutôt bien sinon.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
PROCEDURE RetJourSem(pAnnee,pSem,pJour="LUNDI")
 
LOCAL
	dPremJour 		est une Date
	nValJour		est un entier
 
//D'APRES ISO 8601 : LA SEMAINE 1 EST CELLE QUI CONTIENT LE 04 JANVIER 
dPremJour..Année = pAnnee
dPremJour..Mois  = 1
dPremJour..Jour  = 4
 
//NUMERO DU JOUR (WINDEV) A DECREMENTER
SELON pJour
	CAS "LUNDI" : nValJour = 1
	CAS "MARDI" : nValJour = 2		
	CAS "MERCREDI" : nValJour = 3
	CAS "JEUDI" : nValJour = 4
	CAS "VENDREDI" : nValJour = 5
	CAS "SAMEDI" : nValJour = 6
	CAS "DIMANCHE" : nValJour = 7		
FIN
 
//POSITIONNEMENT SUR LE JOUR RECHERCHE
dPremJour..Jour -= EntierVersJour(dPremJour)-nValJour
 
//POSITIONNEMENT SUR LA BONNE SEMAINE
dPremJour..Jour += 7*(Val(pSem)-1)
 
RENVOYER dPremJour

[Finar]

En effet, la gestion des semaines de Windev n'est pas forcément au top... (bien qu'il puisse réellement exister une semaine 53, dans certains cas précis).

Dans mon cas, ma procédure semble bien fonctionner, tant qu'on ne fait pas de "bétises" dans le passage de parametres... Par contre, j'évite de me fier au résultat de NumeroSemaine()

[Beetle]

Oui je ne sais pas comment les normes définissent ces semaines, mais bon nos clients ne travaillent que très rarement dans cette période de l'année.

Merci pour ton code, bien plus simple que le mien. Beetle.

[Finar]

De rien

Bon Dev,
Finar