Discussion :

[heiti]

bonjour à toutes et à tous!

voilà, j'aimerais savoir s'il est possible de calculer le nombre de jours dans une semaine, en donnant comme paramètres le mois et l'année (sont des entiers) à une fonction que je dois créer ? si oui, comment faire?
la fonction devra prendre en compte aussi les jours fériés, les samedis et dimanches?(déduire)

résultat voulu:
fonction calculnbjrsparsemaine(nMois, nAnnee)

renvoie le nombre de jours de chaque semaine du mois et de l'année passés en paramètre

merci d'avance.

[mnssylvain]

il faut chercher du côté des jours ouvrés, il y a une commande qui te permet de faire ça.

Regarde dans l'aide

[heiti]

Bonjour, merci d'avoir répondu, mais j'ai rien trouver dans l'aide en ce qui concerne les jours ouvrés. Je vois pas de quelle commande tu veux parler?
je travaille avec Windev 12.
j'ai vu les fonctions dates, jours, ... mais aucune avec jours ouvrés.

je continue à chercher quand même......

[mogwai162]

A mon avis ça n'existe pas il va falloir que tu le fasse toi meme de cette manière à peu près :

1 - te batir un calendrier avec les fêtes mobiles (il y a un exemple windev qui fait ça)
2 - te positionner sur le bon jour (1° jour de la semaine)
3 - compter les jours ouvrables

[Firetox]

Bonjour,

dans les composants windev il y a JourFeries qui permet d'avoir les jours feriés, ensuite voir pour les samedi et dimanches (faciles avec les fonctions windev) un petit mixe des deux avec tes propres parametres et tu devrais avoir ta fonctions

ou alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
PROCEDURE EstFerie(DateATester est une chaine = datesys())
 
reponse est un booléen=Faux // ce n'est pas un jour férié
V_chaineFerie est une chaîne = "0101/1225/0714/0501/0508/1101/1111/0815/"
 
V_chaineFerie += Pâques(DateATester[[ A 4]])[[5 A]]
IF Position(V_chaineFerie,DateATester[[5 sur 4]] ) >0 THEN reponse=Vrai	
 
// si samedi ou dimance alors on estime ferié
SI EntierVersJour(DateVersEntier(DateATester))> 5 ALORS reponse = Vrai
 
RENVOYER reponse

a toi de continuer pour que ca fonctionne comme tu le veux et que ca te donne le resultat que tu attends

Bon dev
@+

[mnssylvain]

Désolé je savais que j'avais vu ça mais apparemment pas dans windev mais dans access,
je te laisse un lien au cas ou ça pourrait te servir....

Mais le post au dessus à l'air très intéressant aussi.....

[heiti]

bonjour à tous!
désolé pour le temps d'absence, j'étais sur d'autres problèmes!
alors merci à tous d'avoir répondu!
mais j'ai trouvé la solution, en créant une procédure estjrferie(date)
dans laquelle j'ai fais des conditions si pour les jours feries fixes et les jours feries mobiles, elle fonctionne parfaitement pour mon cas j'espère qu'elle aidera d'autres personnes je vous la mets 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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
PROCEDURE estjrferie(dDate)
/////jrs fériés variables
jpaques est une Date =Pâques(dDate)
 
vendredisaint est une Date=jpaques
vendredisaint..Jour-=2
 
lunpaques est une Date
jpaques..Jour+=1
lunpaques=jpaques
 
Ascencion est une Date
jpaques..Jour+=38
Ascencion=jpaques
 
Pentecote est une Date
Ascencion..Jour+=11
Pentecote=Ascencion
 
Lundipentecote est une Date
Pentecote..Jour+=1
Lundipentecote=Pentecote
 
bJferie est un booléen=Faux
 
//////jrs fériés fixes
//jour de l'an
SI dDate..Jour=01 ET dDate..Mois=01 ALORS
	bJferie=Vrai
SINON
	//Arrivée de l'évangile
	SI dDate..Jour=05 ET dDate..Mois=03 ALORS
		bJferie=Vrai
	SINON
		//vendredi saint
		SI dDate..Jour=vendredisaint..Jour ET dDate..Mois=vendredisaint..Mois ALORS
			bJferie=Vrai
		SINON
			//pâques
			SI dDate..Jour=jpaques..Jour ET dDate..Mois=jpaques..Mois ALORS
				bJferie=Vrai
			SINON
				//lundi de pâques
				SI dDate..Jour=lunpaques..Jour ET dDate..Mois=lunpaques..Mois ALORS
					bJferie=Vrai
				SINON
					//1er mai fête du travail
					SI dDate..Jour=01 ET dDate..Mois=05 ALORS
						bJferie=Vrai
					SINON
						//ascencion
						SI dDate..Jour=Ascencion..Jour ET dDate..Mois=Ascencion..Mois ALORS	
							bJferie=Vrai
						SINON
							//8 mai Victoire 1945
							SI dDate..Jour=08 ET dDate..Mois=05 ALORS
								bJferie=Vrai
							SINON
								//pentecôte
								SI dDate..Jour=Ascencion..Jour ET dDate..Mois=Ascencion..Mois ALORS	
									bJferie=Vrai
								SINON
									//lundi de pentecôte
									SI dDate..Jour=Ascencion..Jour ET dDate..Mois=Ascencion..Mois ALORS	
										bJferie=Vrai
									SINON
										//Autonomie interne
										SI dDate..Jour=29 ET dDate..Mois=06 ALORS
											bJferie=Vrai
										SINON
											//14 juillet Fête nationale
											SI dDate..Jour=14 ET dDate..Mois=07 ALORS
												bJferie=Vrai
											SINON
												//15 aout Assomption
												SI dDate..Jour=15 ET dDate..Mois=08 ALORS			
													bJferie=Vrai
												SINON
													//1 novembre toussaint
													SI dDate..Jour=01 ET dDate..Mois=11 ALORS		
														bJferie=Vrai
													SINON
														//11 novembre Armistice
														SI dDate..Jour=11 ET dDate..Mois=11 ALORS		
															bJferie=Vrai
														SINON
															//25 décembre noel
															SI dDate..Jour=25 ET dDate..Mois=12 ALORS		
																bJferie=Vrai
															FIN
														FIN
													FIN
												FIN
											FIN
										FIN
									FIN
								FIN
							FIN
						FIN
					FIN
				FIN
			FIN
		FIN
	FIN
FIN
	RENVOYER bJferie

merci encore et bonne journée à tous.

il y a des jours a enlever, il faut vérifier car certains sont propres à la polynésie française(mon pays),
merci encore @+