Discussion :

[ecirb]

Bonjour,
je souhaite définir une variable à partir d'une date.

Si ma date est un lundi alors ma variable a une valeur, sinon elle en a une autre.

J'ai pensé utiliser la fonction weekday, mais je dois avouer que je ne sais pas comment mettre ça en oeuvre.

si vous avez une idée.
merci
brice

[pitchalov]

Bonjour

Alors voila tu récupère le jour, tu fais un test, et si c'est lundi tu mets une certaine valeur à ta variable, sinon t'en mets une autre, c'est ça?

ça cevrait ressembler à ça, non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'ce code est faux, voir plus bas
If Weekday(Now) = 1 Then
  var = "Lundi"
Else
  var = "Autre jour"
End If

[omen999]

salut,
par défaut, weekday renvoie 2 pour le lundi et non 1
la liste complète figure dans la doc de la fonction

[pitchalov]

weekday renvoie 2 pour le lundi et non 1

Exact j'avais pas fait attention, c'est le dimanche qui est en 1...
Alors idem avec 2 à la place de 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Weekday(Now) = 2 Then
  var = "Lundi"
Else
  var = "Autre jour"
End If

[pc75]

Bonjour,

Je pense que vous oubliez que la fonction weekday possède un deuxième paramètre qui correspond au premier jour de la semaine.

Extrait de MSDN :

Weekday, fonction


Renvoie une valeur de type Variant (Integer) contenant un nombre entier qui représente le jour de la semaine.

Syntaxe

Weekday(date, [firstdayofweek])

La syntaxe de la fonction Weekday comprend lesarguments nommés suivants :

Élément Description
date Variant,expression numérique,expression de chaîne, ou toute combinaison qui peut représenter une date. Si l'argument date contient une variable de typeNull, Null est renvoyé.
Firstdayofweek Facultatif.Constante jour de la semaine. Si aucune valeur n'est précisée, vbSunday est la valeur par défaut.


Valeurs

L'argument firstdayofweek peut prendre les valeurs suivantes :

Constante Valeur Description
vbUseSystem 0 Utilise les paramètres de l'API NLS.
vbSunday 1 Dimanche (valeur par défaut)
vbMonday 2 Lundi
vbTuesday 3 Mardi
vbWednesday 4 Mercredi
vbThursday 5 Jeudi
vbFriday 6 Vendredi
vbSaturday 7 Samedi


Valeurs renvoyées

La fonction Weekday peut renvoyer l'une de ces valeurs :

Constante Valeur Description
vbSunday 1 Dimanche
vbMonday 2 Lundi
vbTuesday 3 Mardi
vbWednesday 4 Mercredi
vbThursday 5 Jeudi
vbFriday 6 Vendredi
vbSaturday 7 Samedi

[omen999]

salut,
c'est pour ça que j'avais précisé par défaut