PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Comment connaître l'entier du jour de la semaine?
Comment connaître l'entier du jour de la semaine?
Débuté par Jan Lam, 15 juil. 2014 16:21 - 3 réponses
#1
Posté le 15 juillet 2014 - 16:21
Bonjour,
Ce serait bien plus simple, si au lieu de convertir le nombre du jour en lettres, on pouvait utiliser les nombres 1-7 pour les CAS.
Je n'y arrive pas autrement qu'un utilisant les jours en lettres. Le suivant fonctionne, mais je voudrais plus simple, si possible.
dNoel est une Date=SAI_Annee+"1225"
sJourSem est une chaîne=DateVersJourEnLettre(dNoel)

SELON sJourSem
CAS "lundi"
Info("4e dimanche avant Noël = 3 déc")
CAS "mardi"
Info("4e dimanche avant Noël = 2 déc")
CAS "mercredi"
Info("4e dimanche avant Noël = 1er déc")
CAS "jeudi"
Info("4e dimanche avant Noël = 30 nov")
CAS "vendredi"
Info("4e dimanche avant Noël = 29 nov")
CAS "samedi"
Info("4e dimanche avant Noël = 28 nov")
CAS "dimanche"
Info("4e dimanche avant Noël = 27 nov")
AUTRE CAS
Info("marche pas!",dNoel,sJourSem)
FIN

Tant qu'à y réfléchir, d'autres idées pour connaître cette date seraient bienvenues...
Merci d'avance pour toutes réponses.
JML
#2
Posté le 15 juillet 2014 - 16:28
Salut,

"Ce serait bien plus simple, si au lieu de convertir le nombre du jour en
lettres, on pouvait utiliser les nombres 1-7 "

http://doc.pcsoft.fr/fr-FR/?3027004


@+
#3
Posté le 15 juillet 2014 - 16:42
Merci M. Raspeguy,
Ça marche! Je ne vois pas comment j'ai passé à côté. Merci de votre promptitude.
Cordialement JML
#4
Posté le 17 juillet 2014 - 01:20
Le 15/07/2014 14:21, Jan Lam a écrit :
> Tant qu'à y réfléchir, d'autres idées pour connaître cette date seraient bienvenues...

Facile !

dNoël est une Date = SAI_Annee + "1225"
dNoël..Jour -= DateVersJour(dNoël) // 1er dimanche avant Noël
dNoël..Jour -= 3 * 7 // 4e dimanche avant Noël


^_^


(enfin, j'espère ne pas m'être trompé…)
→ Revenir à WINDEV 2024