JOURS FERIES
sp40
Messages postés
1276
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
-
9 nov. 2006 à 16:54
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 24 nov. 2006 à 10:51
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 24 nov. 2006 à 10:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40256-jours-feries
https://codes-sources.commentcamarche.net/source/40256-jours-feries
24 nov. 2006 à 10:51
De plus, faudra prévoir que la fonction ne laisse pas tomber les jours fériés un samedi ou un dimanche ...
A+
24 nov. 2006 à 01:12
La Pâque juive a lieu le 15 nissan, et l'église romaine et l'église orthodoxe ont fixé chacune de leur côté la date de Pâques!
Moi, je suis prêt à envisager une conversion s'il y a une possibilité de faire le pont (pasque Pâques le lundi... pas terrible!).
Simonpelloquin, je te mets un 10/10 pour avoir essayé d'arranger les bidons, mais t'auras un 20/20 le jour où tu nous proposeras un "pont" acceptable... lol
16 nov. 2006 à 20:45
bien venu au club des incompris ...
lol
@+
16 nov. 2006 à 20:41
16 nov. 2006 à 20:14
très très bonne idée ça!
Je vais l' implémenter dans une de mes fonctions (conditions de paiment) que j' ai d' ailleurs posté sur delphifr mais qui n' a eu aucun succes, je suis un incompris, sniff ...
A+
14 nov. 2006 à 10:28
14 nov. 2006 à 10:27
14 nov. 2006 à 10:19
13 nov. 2006 à 17:54
Merci FreDelph pour la fonction, si tu dis que c'est la meilleure... c'est vrai qu'on en trouve beaucoup de différentes !
13 nov. 2006 à 11:37
13 nov. 2006 à 11:02
Et au fait c'est si important que çà d'avoir des fonctions qui calcules le jour de pâque ? çà déja été fait mainte et mainte fois non ?
13 nov. 2006 à 10:55
MAIS n'oubliez pas qu'une seule et unique personne au monde peut remettre en cause la date de Pâques et la déplacer : c'est la Pape.
En effet, c'est lui qui au finish valide ou non la date normalement calculée par cet petite fonction.
10 nov. 2006 à 16:38
10 nov. 2006 à 16:35
En Alsace, il y a donc 2 jours feriés en plus ???
Y a t il d'autres exceptions du même genre ?
10 nov. 2006 à 16:21
function Paques(const Y : word) : TDate;
var
G,C,X,Z,D,E,N,P,J,M : word;
begin
G := (Y mod 19) + 1;
C := (Y div 100) + 1;
X := ((C * 3) shr 2) - 12;
Z := (((C shl 3) + 5) div 25) - 5;
D := ((Y * 5) shr 2) - X - 10;
E := ((G * 11) + 20 + Z - X) mod 30;
if ((E 25) and (G > 11)) or (E 24) then inc(E);
N := 44 - E;
if N < 21 then inc(N,30);
P := N + 7 - ((D + N) mod 7);
if P > 31 then J := P - 31 else J := P;
if J = P then M := 3 else M := 4;
Result := EncodeDate(Y, M, J);
end;
10 nov. 2006 à 15:48
et l'ascension que j'ai loupé (paques + 39)
il reste quand même le 15 Août et il me semble qu'il en manque encore !
Mais comme certains on étés retirés mais toujours présents sur notre calendrier, ça n'arrange pas les choses.
Et pour finir ça fait plus de vingt ans que je ne travail plus sous un régime français, ce qui me donne encore plus de jours fériés qu'en Alsace/Moselle, tout ceci pour dire qu'il est possible que je me mélange un peut dans tout ça.
donc oui un peut fatigué :)
10 nov. 2006 à 14:21
toutes ces dates ont été notées ici deja :p
relis bien la source et les commentaires
10 nov. 2006 à 14:09
lol #^_^#
10 nov. 2006 à 14:02
10 nov. 2006 à 13:59
pour l'Alsace et/où la Moselle il en manque encore
le vendredi saint (c'est le vendredi avant Paques)
l'ascension le 25 Mai (je ne sais pas si elle est fixe celle ci)
l'assomption le 15 Aout
je ne les ai pas tous en tête mais si tu fais une recherche sur le net tu devrais trouver ton bonheur
@+
Cirec
10 nov. 2006 à 11:17
10 nov. 2006 à 11:03
10 nov. 2006 à 11:00
10 nov. 2006 à 10:58
J'ai intégré les jours feriés que tu me disais pour la fonction (au passage, pour plus d'exactitude, je l'ai renommé)
function isFrenchFerie(ZeDate : TDateTime; Localisation : string = 'metropole') : Boolean;
var
MyDay : Word;
MyMonth : Word;
MyYear : Word;
MyPaques : TDateTime;
begin
ZeDate := Trunc(ZeDate);
Result := False;
DecodeDate(ZeDate, MyYear, MyMonth, MyDay);
// Verification dates
Result :(ZeDate (Paques(MyYear) + 1))
or (ZeDate = (Paques(MyYear) + 39))
or (ZeDate = (Paques(MyYear) + 50))
or ((MyMonth 1) and (MyDay 1))
or ((MyMonth 5) and ((MyDay 1) or (MyDay = 8) or ((Localisation = 'martinique') and (MyDay = 22)) or ((Localisation = 'guadeloupe') and (MyDay = 27))))
or ((Localisation 'guyane') and (MyMonth 6) and (MyDay = 10))
or ((MyMonth 7) and (MyDay 14))
or ((MyMonth 11) and ((MyDay 1) or (MyDay = 11)))
or ((MyMonth 12) and (((Localisation 'reunion') and (MyDay = 20)) or (MyDay = 25) or ((Localisation = 'alsace') and (MyDay = 26))));
end;
10 nov. 2006 à 10:32
10 nov. 2006 à 10:20
10 nov. 2006 à 10:18
En revanche, je ne crois pas que le vendredi saint soit un jour ferié...
Merci aussi pour la retouche... ça a l'air effectivement un peu plus propre !
Econs > Le but de la fonction est de dire si c'est un jour ferié ou pas... (J'ai précisé dans le commentaire que Paques n'était pas de moi) ;)
9 nov. 2006 à 21:41
Une info au passage, le jeudi de l'ascension, c'est 40 jours après Pâques, et pas 39.
9 nov. 2006 à 20:31
si j'ai :
type
TFerie = Record
fDate: TDate;
fNom: String[32];
end;
avec :
fFeries[0].fDate := StrToDate('01/01/06');
ça passe car le 01/01 est férie tout le temps mais avec la date de paques, disons 25/04/06, l'an prochain ne sera plus le 25/04/07 :o
tu proposes quoi ?
9 nov. 2006 à 20:01
On peux même créer une structure avec le libellé du jour ferier, une description etc...
ex:
type TDateFerie = record
LaDate : TDate;
Libelle: string[50];
etc...
end;
Comme çà tu peux sortir un tas d'informations, plus complet qu'un simple Boolean.
9 nov. 2006 à 19:19
function isFerie(ZeDate : TDate) : Boolean;
var
MyDay,MyMonth,MyYear : Word;
MyPaques : TDateTime;
begin
DecodeDate(ZeDate, MyYear, MyMonth, MyDay);
// Verification dates
Result :(ZeDate (Paques(MyYear) + 1))
or (ZeDate = (Paques(MyYear) + 39))
or (ZeDate = (Paques(MyYear) + 50))
or ((MyMonth 1) and (MyDay 1))
or ((MyMonth 5) and ((MyDay 1) or (MyDay = 8) or (MyDay = 22) or (MyDay = 27)))
or ((MyMonth 6) and (MyDay 10))
or ((MyMonth 7) and (MyDay 14))
or ((MyMonth 11) and ((MyDay 1) or (MyDay = 11)))
or ((MyMonth 12) and ((MyDay 20) or (MyDay = 25)))
;
end;
en fait, aucun IF ni CASE ^^
9 nov. 2006 à 18:08
Il manque :
Alsace/Moselle
la Saint Étienne, le lendemain de Noël (26 décembre).
La Martinique
Un jour supplémentaire est prévu à la Martinique, le 22 mai, jour d'abolition de l'esclavage.
La Guadeloupe
Un jour supplémentaire est prévu à la Guadeloupe, le 27 mai, jour d'abolition de l'esclavage.
La Guyane
Un jour supplémentaire est prévu à la Guyane, le 10 juin, jour d'abolition de l'esclavage.
La Réunion
Un jour supplémentaire est prévu à la Réunion, le 20 décembre, jour d'abolition de l'esclavage.
D'autres jours fériés :
Vendredi saint (date variable):le vendredi précedent pâques
Pour Lundi de Pâques (date variable):http://fr.wikipedia.org/wiki/Calcul_de_la_date_de_Pâques
Je ferme les yeux sur les jours féries non français.
Fini ton travail =)
9 nov. 2006 à 16:54