date est une Date date..Jour = 1 date..Mois = 1 date..Année = une_annee
// détermination du jour (lundi, mardi...) le_jour est un entier = EntierVersJour(date) SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année date..Jour += 8 - le_jour FIN // spécificité si numéro de semaine à 0, le premier lundi se situe sur la semaine 1 SI numero_de_semaine=0 ALORS numero_de_semaine=1 // faire le tour des semaines BOUCLE SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR date..Jour += 7 FIN
RENVOYER date
"Bernard" <bv@[nospambv]-all.net> a écrit dans le message de news:
mn.eae77d545a75670b.24888@nospambv-all.net...
bonjour a tous,
bon je n'ai pas les idées claires aujourd'hui....
j'ai besoin d'une fonction qui me renvoie la date de début de semaine et
la date de fin de semaine en fonction du N° de semaine !
date est une Date
date..Jour = 1
date..Mois = 1
date..Année = une_annee
// détermination du jour (lundi, mardi...)
le_jour est un entier = EntierVersJour(date)
SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année
date..Jour += 8 - le_jour
FIN
// spécificité si numéro de semaine à 0, le premier lundi se situe sur la
semaine 1
SI numero_de_semaine=0 ALORS numero_de_semaine=1
// faire le tour des semaines
BOUCLE
SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR
date..Jour += 7
FIN
date est une Date date..Jour = 1 date..Mois = 1 date..Année = une_annee
// détermination du jour (lundi, mardi...) le_jour est un entier = EntierVersJour(date) SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année date..Jour += 8 - le_jour FIN // spécificité si numéro de semaine à 0, le premier lundi se situe sur la semaine 1 SI numero_de_semaine=0 ALORS numero_de_semaine=1 // faire le tour des semaines BOUCLE SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR date..Jour += 7 FIN
RENVOYER date
Bernard
dany a pensé très fort :
"Bernard" <bv@[nospambv]-all.net> a écrit dans le message de news:
bonjour a tous,
bon je n'ai pas les idées claires aujourd'hui....
j'ai besoin d'une fonction qui me renvoie la date de début de semaine et la date de fin de semaine en fonction du N° de semaine !
date est une Date date..Jour = 1 date..Mois = 1 date..Année = une_annee
// détermination du jour (lundi, mardi...) le_jour est un entier = EntierVersJour(date) SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année date..Jour += 8 - le_jour FIN // spécificité si numéro de semaine à 0, le premier lundi se situe sur la semaine 1 SI numero_de_semaine=0 ALORS numero_de_semaine=1 // faire le tour des semaines BOUCLE SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR date..Jour += 7 FIN
RENVOYER date
Ben ça c'est du rapide !
Merci Beaucoup, j'étais vraiment mal parti !
@ +++
-- [Bernard] enlever [nospam] a mon mel - Carpe Diem -
dany a pensé très fort :
"Bernard" <bv@[nospambv]-all.net> a écrit dans le message de news:
mn.eae77d545a75670b.24888@nospambv-all.net...
bonjour a tous,
bon je n'ai pas les idées claires aujourd'hui....
j'ai besoin d'une fonction qui me renvoie la date de début de semaine et la
date de fin de semaine en fonction du N° de semaine !
date est une Date
date..Jour = 1
date..Mois = 1
date..Année = une_annee
// détermination du jour (lundi, mardi...)
le_jour est un entier = EntierVersJour(date)
SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année
date..Jour += 8 - le_jour
FIN
// spécificité si numéro de semaine à 0, le premier lundi se situe sur la
semaine 1
SI numero_de_semaine=0 ALORS numero_de_semaine=1
// faire le tour des semaines
BOUCLE
SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR
date..Jour += 7
FIN
RENVOYER date
Ben ça c'est du rapide !
Merci Beaucoup,
j'étais vraiment mal parti !
@ +++
--
[Bernard]
enlever [nospam] a mon mel
- Carpe Diem -
date est une Date date..Jour = 1 date..Mois = 1 date..Année = une_annee
// détermination du jour (lundi, mardi...) le_jour est un entier = EntierVersJour(date) SI le_jour <> 1 ALORS // changement de la date au premier lundi de l'année date..Jour += 8 - le_jour FIN // spécificité si numéro de semaine à 0, le premier lundi se situe sur la semaine 1 SI numero_de_semaine=0 ALORS numero_de_semaine=1 // faire le tour des semaines BOUCLE SI NuméroDeSemaine(date) = numero_de_semaine ALORS SORTIR date..Jour += 7 FIN
RENVOYER date
Ben ça c'est du rapide !
Merci Beaucoup, j'étais vraiment mal parti !
@ +++
-- [Bernard] enlever [nospam] a mon mel - Carpe Diem -
