PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Date du lundi
Date du lundi
Débuté par eric.detrez, 02 nov. 2005 13:28 - 6 réponses
#1
Posté le 02 novembre 2005 - 13:28
Bonjour,
Je voudrais savoir si quelqu'un a une fonction en WINDEV qui permet d'avoir la date du lundi d'une semaine donnée.
Si possible en passant comme paramètre à cette fonction une date ou un numéro de semaine.

Merci de votre aide
#2
Posté le 02 novembre 2005 - 14:28
Regarde la fonction entierversjour() dans l'aide, celà devrait t'aider.
#3
Posté le 02 novembre 2005 - 14:35
fonction date_du_lundi(d est une date)
res est une date=d
res..Jour-=DateVersJour(res)-1
renvoyer res

ou un truc du style...
#4
Posté le 02 novembre 2005 - 15:22
Bonjour

"Eric DETREZ" <eric.detrez@ch-aubenas.fr> a écrit dans le message de news:
4368aac2$1@news.pcsoft.fr...



Bonjour,
Je voudrais savoir si quelqu'un a une fonction en WINDEV qui permet
d'avoir la date du lundi d'une semaine donnée.
Si possible en passant comme paramètre à cette fonction une date ou un
numéro de semaine.


Pour trouver le lundi précédant une date donnée :

MaDate est une Date=.....

TantQue DateVersJour(MaDate)>1
MaDate..jour--
Fin

Jean-Louis MOREL
#5
Posté le 02 novembre 2005 - 18:23
Bonjour,

Voici le code d'une procedure que j'utilise pour déterminer la date du lundi en fonction d'une date

----------------------------------------------------------------------

PROCEDURE DetermineLundi(wDateSelect est une Date)

// On cherche la date du jour
wDate est une Date
wDate =wDateSelect
wJourEnChiffre est un entier=wDate..Jour
wJourEnLettre est une chaîne=DateVersJourEnLettre(wDate)

TANTQUE wJourEnLettre<>"Lundi"
wDate..Jour-=1
wJourEnLettre=DateVersJourEnLettre(wDate)
FIN

wDateLundi=wDate

-----------------------------------------------------------------------
#6
Posté le 02 novembre 2005 - 20:51
Bonjour,
Cette fonction te donne le lundi d'une semaine passée en parametre

Info(DateVersChaine(Date_Lundi(12,"2005")))


FONCTION Date_Lundi(Num_Semaine, L_Annee)
Premier_Jour01 est une chaîne = L_Annee + "0101"
Premier_Jour02 est un entier =
EntierVersJour(DateVersEntier(Premier_Jour01))
Debut_Semaine est un entier

SI Premier_Jour02 > 4 ALORS
Debut_Semaine = ((Num_Semaine * 7) - 6) + (7 - Premier_Jour02 + 1)
SINON
Debut_Semaine = ((Num_Semaine * 7) - 6) - (Premier_Jour02 - 1)
fin

RENVOYER EntierVersDate(Debut_Semaine + DateVersEntier(Premier_Jour01) - 1)

"Eric DETREZ" <eric.detrez@ch-aubenas.fr> a écrit dans le message de news:
4368aac2$1@news.pcsoft.fr...




Bonjour,
Je voudrais savoir si quelqu'un a une fonction en WINDEV qui permet
d'avoir la date du lundi d'une semaine donnée.
Si possible en passant comme paramètre à cette fonction une date ou un
numéro de semaine.

Merci de votre aide

#7
Posté le 03 novembre 2005 - 16:58
Bonjour,

sDate est une chaine = Datesys()

nNumJour, nNbJour sont des entiers
dLundi est une Date

// [< n° du jour >]
nNumJour = DateVersJour(sDate)
nNbJour = nNumJour - 1

// [< Date du lundi >]
dLundi = EntierVersDate(DateVersEntier(sDate) - nNbJour)

Trace(dLundi)

Cordialement
Albert
→ Revenir à WINDEV 2024