PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → numéro de semaine
numéro de semaine
Iniciado por vailldam, jun., 30 2005 7:04 PM - 9 respostas
Publicado em junho, 30 2005 - 7:04 PM
Bonjour à tous!
Je voulais savoir si il était possible de connaitre les dates en choississant un numéro de semaine. Par exemple, la semaine numéro 24 de cette année correspond aux dates du 13 au 18 juin...
Merci à vous!
Publicado em junho, 30 2005 - 7:30 PM
Damien a écrit :
Bonjour à tous!
Je voulais savoir si il était possible de connaitre les dates en choississant un numéro de semaine. Par exemple, la semaine numéro 24 de cette année correspond aux dates du 13 au 18 juin...
Merci à vous!



J'avais besoin d'avoir le mercredi d'une semaine pour un de mes projets ...

mercredi est une Date = EntierVersDate( (Val(Droite(Q:DATA.N_PER,2))-1) * 7 + offset + 2 +
DateVersEntier(Milieu(Q:DATA.N_PER,3,4) + "0101"))

Ca doit pouvoir t'aider :)

Damien
Publicado em junho, 30 2005 - 7:32 PM
Damien a écrit :
Bonjour à tous!
Je voulais savoir si il était possible de connaitre les dates en choississant un numéro de semaine. Par exemple, la semaine numéro 24 de cette année correspond aux dates du 13 au 18 juin...
Merci à vous!


J'avais besoin d'avoir le mercredi d'une semaine pour un de mes projets ...

offset est un entier
SELON DateVersJour(Milieu(Q:DATA.N_PER,3,4) + "0101")
CAS 7 : offset = 1
CAS 6 : offset = 2
CAS 5 : offset = 3
CAS 4 : offset = 4
CAS 3 : offset = 5
CAS 2 : offset = 6
CAS 1 : offset = 0
FIN
mercredi est une Date = EntierVersDate( (Val(Droite(Q:DATA.N_PER,2))-1) * 7 + offset + 2 +
DateVersEntier(Milieu(Q:DATA.N_PER,3,4) + "0101"))

Ca doit pouvoir t'aider :)

Damien
Publicado em junho, 30 2005 - 7:36 PM
vous avez une fonciton numerode semaine, ensuite vous avez
dateversentier ( une date aaaammjj)
la semaine suivante est j+6
dateversentier ( une date aaaammjj)+6

vous avez aussi entierversdate
Publicado em junho, 30 2005 - 7:36 PM
Damien a écrit :
Bonjour à tous!
Je voulais savoir si il était possible de connaitre les dates en choississant un numéro de semaine. Par exemple, la semaine numéro 24 de cette année correspond aux dates du 13 au 18 juin...
Merci à vous!


Voici une méthode tirée d'une classe sur les dates
:JourEnCours : membre date du jour (mais pourrait être la date voulue)

PROCEDURE SemaineEnCours()
//Période comprise entre le Lundi et le Vendredi de la semaine en cours
:DateDeb = EntierVersDate(:JourEnCours-EntierVersJour(:JourEnCours)+1)
:DateFin = DateSys()


Ensuite il devrait être suffisant de faire un DateVersNumeroDeSemaine
sur :DateDeb pour obtenir l'information escomptée

++ R&B
WDForge.org
Publicado em junho, 30 2005 - 7:44 PM
Damien a écrit :
Bonjour à tous!
Je voulais savoir si il était possible de connaitre les dates en choississant un numéro de semaine. Par exemple, la semaine numéro 24 de cette année correspond aux dates du 13 au 18 juin...
Merci à vous!


J'avais besoin d'avoir le mercredi d'une semaine pour un de mes projets ...
maDate est une Date = "20050630"
offset est un entier
SELON DateVersJour(maDate..Année + "0101")
CAS 7 : offset = 1
CAS 6 : offset = 2
CAS 5 : offset = 3
CAS 4 : offset = 4
CAS 3 : offset = 5
CAS 2 : offset = 6
CAS 1 : offset = 0
FIN
mercredi est une Date = EntierVersDate( (NuméroDeSemaine(maDate)-1) * 7 + offset + 2 + DateVersEntier(maDate..Année +
"0101"))
Info(mercredi)


Ca doit pouvoir t'aider :)

Damien
Publicado em julho, 01 2005 - 10:40 AM
Salut

En tapant "semaine" dans la rubrique recherche (à gauche dans la page forum, un certain nombre -important- de solutions s'afficheront.

Non seulement, ells permettent de savoir comment manipuler les dates et ce qui va autour, mais en plus, elles permettent de voir que plusieurs façons d'aborder un PB existent.

D'où l'intérêt d'un forum de cette qualité.

J-F F
Publicado em julho, 01 2005 - 11:05 AM
Bonjour,

Ci joint une fonction qui le permet

xSemaine est un entier
xDatepremier est un entier
Depart est une chaîne

xSemaine = 51 // Semaine à rechercher ( exemple pour la semaine 51
Depart = DateDuJour()
xDatepremier = DateVersEntier(Depart[[1 A 4]] +"0101") + ( (xSemaine) * 7) - DateVersJour(Depart[[1 A 4]] +"0101") +1

Erreur( EntierVersDate(xDatepremier)) // donne la date au format YYYYMMJJ

Cordialement

C.AUBRY
Publicado em julho, 06 2005 - 5:32 PM
Utilise la fonction "DateVersNuméroDeSemaine"

exemple date1, date2 est un entier

date1 = DateVersNuméroDeSemaine(datesys()) // N° de semaine en cour

date2 = DateVersNuméroDeSemaine(MaDate) // N° de semaine en cour

ou MaDate est une date au format "Date" stockée dans un champ ou un fichier

++
Publicado em julho, 06 2005 - 5:35 PM
Zut j'ai oublier sert toi aussi de DatVersJourEnLettre qui te renvoi le jour en lettre de la date

ça te permettras de te posotionner dans la semaine