[wd 7.5/9]

Christophe Chatillon a écrit :

bonjour,
quelqu'un a t il un fichier contenant l'ensemble des fêtes du calendrier ??

merci

c'est pour vérifier si on bosse le lundi de Pentecôte ?
:D

Dans son message précédent, Christophe Chatillon a écrit :

bonjour,
quelqu'un a t il un fichier contenant l'ensemble des fêtes du calendrier ??

merci

il y a un composant qui fait cela non ? ( voir la soucoupe...!)

cordialement,

--
[Bernard]
enlever [nospam] a mon mel
- Carpe Diem -

Il se trouve que Christophe Chatillon a formulé :

bonjour,
quelqu'un a t il un fichier contenant l'ensemble des fêtes du calendrier ??

Pourquoi faire un fichier quand on peut TOUT calculer ?
Tu adapteras à tes besoins ;)

Le plus casse pied :
Calcul de PAQUES :

// Description des paramètres d'entrée/sortie de 'CalculPaques' :
//
// Syntaxe :
//[<Résultat> = ] CalculPaques ([<ANNEE>])
//
// Paramètres :
// ANNEE : L'année en nombre.
// Valeur de retour :
// CalculPaques renvoie une chaine au format ISO contenant la date de
Pâques.
// Si l'année n'est pas précisée, c'est l'année en cours qui est prise
en compte.

FONCTION CalculPaques(ANNEE=Gauche(DateSys(),4))


//***********************************************************************
// Calcul le jour de paques pour l'annee Annee
// Utilisation de la methode de Spender Jones
//
***********************************************************************
DT est un entier
R01 est un entier
R02 est un entier
R03 est un entier
R04 est un entier
R05 est un entier
R06 est un entier
R07 est un entier
R08 est un entier
R09 est un entier
R10 est un entier
R11 est un entier
R12 est un entier

R01 = modulo(ANNEE, 19)
R02 = ANNEE / 100
R03 = modulo(ANNEE, 100)
R04 = R02 / 4
R05 = modulo(R02, 4)
R06 = (8 + R02) / 25
R07 = (1 + R02 - R06) / 3
R08 = 15 + 19 * R01 + R02 - R04 - R07
R08 = modulo(R08, 30)
R09 = R03 / 4
R10 = modulo(R03, 4)
R11 = 32 + 2 * (R05 + R09) - R08 - R10
R11 = modulo(R11, 7)
R12 = (R01 + 11 * R08 + 22 * R11) / 451

DTÚteDifférence(ANNEE+"0101",ANNEE+"0321") + R08 + R11 - 7 * R12 + 1

RENVOYER(EntierVersDate(DateVersEntier(ANNEE+"0101")+DT))



---
Ensuite tout découle de ça :

PROCEDURE EstJourFerie(dtÚteSys())

Annee est une chaîne=Gauche(dt,4)
Paques est une DateÊlculPaques(Val(Annee))
LundiDePaques est une Date = Paques
Pentecote est une Date = Paques
Ascension est une Date=Paques
LundiDePentecote est une Date=Paques

LundiDePaques..Jour+=1
Ascension..Jour+9
Pentecote..Jour+I
LundiDePentecote..Jour+P


SELON dt
CAS Paques
RENVOYER "Pâques"
CAS Pentecote
RENVOYER "Pentecôte"
CAS Ascension
RENVOYER "Ascension"
CAS LundiDePaques
RENVOYER "Lundi de Pâques"
CAS LundiDePentecote
RENVOYER "Lundi de Pentecôte"
CAS Annee+"0101"
RENVOYER "Jour de l'an"
CAS Annee+"0501"
RENVOYER "Fête du travail"
CAS Annee+"0508"
RENVOYER "Victoire 1945"
CAS Annee+"0714"
RENVOYER "Fête Nationale"
CAS Annee+"0815"
RENVOYER "Assomption"
CAS Annee+"1101"
RENVOYER "Toussaint"
CAS Annee+"1111"
RENVOYER "Armistice 1918"
CAS Annee+"1225"
RENVOYER "Noël"
AUTRE CAS
RENVOYER ""
FIN

et la saint christophe par exemple ???
(merci pour la procedure quand même)
"Gilles G." <debians@gmail.com> a écrit dans le message de
news:mn.18157d556aa0daee.21586@gmail.com...

Il se trouve que Christophe Chatillon a formulé :
> bonjour,
> quelqu'un a t il un fichier contenant l'ensemble des fêtes du calendrier

??

Pourquoi faire un fichier quand on peut TOUT calculer ?
Tu adapteras à tes besoins ;)

Le plus casse pied :
Calcul de PAQUES :

// Description des paramètres d'entrée/sortie de 'CalculPaques' :
//
// Syntaxe :
//[<Résultat> = ] CalculPaques ([<ANNEE>])
//
// Paramètres :
// ANNEE : L'année en nombre.
// Valeur de retour :
// CalculPaques renvoie une chaine au format ISO contenant la date de
Pâques.
// Si l'année n'est pas précisée, c'est l'année en cours qui est prise
en compte.

FONCTION CalculPaques(ANNEE=Gauche(DateSys(),4))


//***********************************************************************
// Calcul le jour de paques pour l'annee Annee
// Utilisation de la methode de Spender Jones
//
***********************************************************************
DT est un entier
R01 est un entier
R02 est un entier
R03 est un entier
R04 est un entier
R05 est un entier
R06 est un entier
R07 est un entier
R08 est un entier
R09 est un entier
R10 est un entier
R11 est un entier
R12 est un entier

R01 = modulo(ANNEE, 19)
R02 = ANNEE / 100
R03 = modulo(ANNEE, 100)
R04 = R02 / 4
R05 = modulo(R02, 4)
R06 = (8 + R02) / 25
R07 = (1 + R02 - R06) / 3
R08 = 15 + 19 * R01 + R02 - R04 - R07
R08 = modulo(R08, 30)
R09 = R03 / 4
R10 = modulo(R03, 4)
R11 = 32 + 2 * (R05 + R09) - R08 - R10
R11 = modulo(R11, 7)
R12 = (R01 + 11 * R08 + 22 * R11) / 451

DTÚteDifférence(ANNEE+"0101",ANNEE+"0321") + R08 + R11 - 7 * R12 + 1

RENVOYER(EntierVersDate(DateVersEntier(ANNEE+"0101")+DT))



---
Ensuite tout découle de ça :

PROCEDURE EstJourFerie(dtÚteSys())

Annee est une chaîne=Gauche(dt,4)
Paques est une DateÊlculPaques(Val(Annee))
LundiDePaques est une Date = Paques
Pentecote est une Date = Paques
Ascension est une Date=Paques
LundiDePentecote est une Date=Paques

LundiDePaques..Jour+=1
Ascension..Jour+9
Pentecote..Jour+I
LundiDePentecote..Jour+P


SELON dt
CAS Paques
RENVOYER "Pâques"
CAS Pentecote
RENVOYER "Pentecôte"
CAS Ascension
RENVOYER "Ascension"
CAS LundiDePaques
RENVOYER "Lundi de Pâques"
CAS LundiDePentecote
RENVOYER "Lundi de Pentecôte"
CAS Annee+"0101"
RENVOYER "Jour de l'an"
CAS Annee+"0501"
RENVOYER "Fête du travail"
CAS Annee+"0508"
RENVOYER "Victoire 1945"
CAS Annee+"0714"
RENVOYER "Fête Nationale"
CAS Annee+"0815"
RENVOYER "Assomption"
CAS Annee+"1101"
RENVOYER "Toussaint"
CAS Annee+"1111"
RENVOYER "Armistice 1918"
CAS Annee+"1225"
RENVOYER "Noël"
AUTRE CAS
RENVOYER ""
FIN

Christophe Chatillon a couché sur son écran :

et la saint christophe par exemple ???
(merci pour la procedure quand même)

Ha scuse, je croyais que tu voulais les jours fériés.


Envoie moi un mail je t'enverrais un fichier XML contenant tout ça...