Discussion :

[cid5420]

Bonjour,

je me demande si il existe une fonction qui calcul le jour du changement d'heure.

j'ai pensé faire un mélange de fonction en utilisant DernierJourDeLaSemaine() et DernierJourDuMois() pour calculer le dernier dimanche du mois de mars et d'octobre (où a lieu le changement d'heure)
Le truc c'est que je ne sais pas trop comment poser ça sous windev !!!!

[Térence01]

Salut,

Si c'est pour que tu puisses faire toi-même la modification de l'heure après, tu peux utiliser plus simplement, HeureSys() normalement il te donnera toujours la bonne heure.

En espérant t'avoir aidé
Térence01

[cid5420]

Non en fait j'ai une table avec des horaires d'ouverture hiver et été

j'aimerais :

Code :

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

1
2
3
4
5
6
7
8
9
SI Datesys() = dernier dimanche du mois de mars ALORS
dans ma table horaire, je sélectionne ma ligne hiver et je mets actif à 0
je sélectionne ma ligne été et je mets actif à 1
FIN
 
SI Datesys() = dernier dimanche du mois d'Octobre ALORS
dans ma table horaire, je sélectionne ma ligne hiver et je mets actif à 1
je sélectionne ma ligne été et je mets actif à 0
FIN

Voila dans le principe ce que j'aimerais faire mais je n'arrive pas a trouver l'imbrication des 2 fonctions pour tester le dernier dimanche du mois

[Térence01]

D'accord je me doutais que c'était ça mais j'étais pas sûr.

Je n'ai pas trouvé de méthode pour chercher le jour exact dans les mois (enfin la date).

J'ai peut-être une autre idée si ça t'intéresse. C'est un peu fastidieux mais à toi de voir si tu veux faire comme ça.

-Alors tu crées un fichier de données et dedans tu mets 1 rubrique au format date.
-Dans cette rubrique tu mets chaque changement d'heure (tu prends un calendrier chez toi, sur ton ordi et tu notes tous les jours où il y aura le changement d'heure, tu fais ça sur les 30 ans à venir peut-être, tu peux aller jusqu'en 2099 avec les calendriers sur ordinateur, ça suffira amplement je pense d'ici là les applications auront évoluées ^^)
-Une fois tous tes changements d'heure trouvés tu les mets dans le tableau en les alternant :
*changement date mars
*changement date octobre
*changement date mars
*changement date octobre
*Ainsi de suite...

Ensuite tu fais une sorte de comparaison entre ta première ligne de ton fichier de données et la date du jour

Code :

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

1
2
3
4
5
6
7
8
9
10
 
HOuvre(Fichier de données)
HLitPremier(Fichier de données)
Si DateDujour <> (différent) 1ère Ligne du fichier de données ALORS
       Reste sur les horaires d'ouvertures
SINON 
Si DateDuJour = 1ère Ligne du fichier de données ALORS
       Change les horaires d'ouverture
       HSupprime(1ère Ligne du fichier de données)
FIN

Ainsi tu compares tout le temps que la 1ère ligne du fichier de données qui contiendra toujours le prochain changement d'heure


Voilà, ça risque d'être long mais ça peut peut-être marcher, tiens moi au courant si tu appliques cette méthode

[cid5420]

j'avais déjà pensé a rechercher tous les jours de changement d'heure mais j'aurai aimé avoir un peu plus d'automatisme.

Quand je vois que wd est capable de calculer la date du lundi de pâque, je pense qu'un dimanche en fin de mois ne devrait pas être plus compliqué !

[Térence01]

Je pense aussi mais là je sèche ^^
Je sais pas du tout comment t'aider

[Ry_Yo]

Bonjour,

Vous êtes sur la bonne voie. Mais une petite modification de votre raisonnement serait plus simple je pense....

Avant de "coder", Il faut juste clarifier votre pensée et cela viendra tout seul.
Question : comment connaitre le dernier dimanche du mois X ?


De ce que je lis, votre approche est de connaitre le dernier jour du mois.
Admettons... le 31/03/14.

De là combien de possibilité avez-vous ?
- Soit le 31 tombe un dimanche
- Soit le 31 n'est pas un dimanche

Si c'est un dimanche, votre problème est résolu...
Par contre, si ce n'est pas un dimanche, c'est le dimanche de la semaine précédente qui nous intéresse...

[HUMOUR ON]
La nouvelle question est : Comment trouver le dimanche précédent ? (beaucoup de méthode sont possible, je vous mets une piste de solution en cacher
Il faut utiliser :
PremierJourDeLaSemaine()(--> on sera Lundi)
Puis décrémenter 1 jour (on tombe sur le dimanche de la semaine précédente)

[HUMOUR OFF]

PS : si si, la réponse est dans le post... faut juste trouver comment là faire apparaître

[cid5420]

Je suis vraiment le premier qui voudrais faire ça ????

[Térence01]

Vraiment astucieuse la méthode pour trouver le dimanche d'avant, normalement ça devrait fonctionner !

@cid5420 : je pense pas, il y en a qui ont dû le faire avant ^^

[cid5420]

Heureusement pour moi je ne suis pas nooby sur le développement web

Merci "firebug"

Donc je suis ravis d'avoir eu quand même un bon raisonnement il fallait aller plus loin donc je vais écrire une fonction pour ça et je vous la met dès que celle-ci fonctionne

[DelphiManiac]

Firebug est peut être une usine à gaz pour trouver le spoil, il suffit de savoir utiliser la souris

[cid5420]

Quelle moment de solitude !!!!!!

[Ry_Yo]

J'ai oublié de préciser, au cas si ça peut vous aidez, il existe une fonction Windev pour connaitre le jour de la semaine :
http://doc.pcsoft.fr/fr-FR/?3027008&name=entierversjour_fonction&product=WB


Donc on peut identifier rapidement si le 31 est un dimanche ou pas....

[cid5420]

Bon j'ai un bout de code qui semble fonctionner (juste un prob d'affichage de la date mais rien de grave)

Code :

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

1
2
3
4
5
6
7
8
9
10
nDernierJM est un entier = DateVersEntier(DernierJourDuMois())
nDernierJS est un entier = DateVersEntier(DernierJourDeLaSemaine(DernierJourDuMois()))
dateDim est une Date = PremierJourDeLaSemaine(DernierJourDuMois())
SI nDernierJM = nDernierJS ALORS
	LIB_SansNom1 = "Le dernier jour du mois tombe un dimanche"
SINON
	LIB_SansNom1 = "Le dernier jours du mois n'est pas un dimanche"
	dDernierDimanche est une Date = dateDim..Jour - 1
	LIB_SansNom2="Le dernier dimanche du mois tombe le  "+dDernierDimanche
FIN

[Ry_Yo]

Alors sur votre code, si je peux me permettre :

Bon j'ai un bout de code qui semble fonctionner (juste un prob d'affichage de la date mais rien de grave)

Code :

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

1
2
3
4
5
6
7
8
9
10
nDernierJM est un entier = DateVersEntier(DernierJourDuMois()) <-- Attention avec ce code, vous ne travaillez que sur la date en cours
nDernierJS est un entier = DateVersEntier(DernierJourDeLaSemaine(DernierJourDuMois())) <-- Attention avec ce code, vous ne travaillez que sur la date en cours
dateDim est une Date = PremierJourDeLaSemaine(DernierJourDuMois())
SI nDernierJM = nDernierJS ALORS <-- voir ma remarque plus haut avec la fonction EntierVersJour() le test sera plus d'autant plus lisible avec l'utilisation de constante
	LIB_SansNom1 = "Le dernier jour du mois tombe un dimanche"
SINON
	LIB_SansNom1 = "Le dernier jours du mois n'est pas un dimanche"
	dDernierDimanche est une Date = dateDim..Jour - 1 <-- Attention vous récupérez uniquement la partie "jour" et pas la date complète avec ce code, vous avez fait un raccourci de trop, dans un premier temps, faites un code fonctionnel, donc plus verbeux, puis une fois validé, vous pouvez vous attaquez à la refactorisation pour diminuer le nombre de ligne ou optimiser le code
	LIB_SansNom2="Le dernier dimanche du mois tombe le  "+dDernierDimanche
FIN

[cid5420]

oui il est vrai qu'on peut améliorer ce code. Dans cet exemple je suis sur une date en cours il est évident !
C'est juste un code de test, j'ai également fait un test avec un champs de saisie de type date voir les fonctions avec une date en plus !!!

Quand je disais que j'avais un prob d'affichage de la date, je n'ai pas fait attention que je travaillais uniquement sur le jour lorsque je décrémente !!! (merci pour cette remarque)

[Ry_Yo]

Voici une version "générique" de votre demande :

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
 
pnJourChercher attend 1,2,3...,7 (1 étant le Lundi et 7 le dimanche)
 
PROCEDURE dateDernierJourDuMois(pnJourChercher, pnAnnee, pnMois)
 
dDernierJM est une Date
nJourDeLaSemaine est un entier
dRetour est une Date
 
dDernierJM = DernierJourDuMois(pnAnnee, pnMois) //Récupère la date du dernier jour du mois
nJourDeLaSemaine = EntierVersJour(dDernierJM) // Récupère le jour du dernier jour du mois
 
dRetour = dDernierJM 
 
SELON Vrai
	CAS pnJourChercher > nJourDeLaSemaine : dRetour..Jour -= (7 - (pnJourChercher - nJourDeLaSemaine))
	CAS pnJourChercher < nJourDeLaSemaine : dRetour..Jour -= (nJourDeLaSemaine - pnJourChercher)
	AUTRE CAS				
FIN
 
RENVOYER dRetour

je n'ai pas testé, mais ça devrait être ça, j'ai juste un doute sur un décalage d'un jour ou pas... avec les soustractions de date, je ne suis jamais sûr.....

[SevenSoftware]

Bonjour,

Je ne suis pas spécialiste des API, mais y aurait pas un truc du genre GetTimeZoneInformation() qui indique si
le PC est à l'heure d'été ?
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx