Bonjour
dans le sous-programme suivant la variable lemois donne=20
toujours la valeur janvier quelque soit la date (maDate)=20
et le nombre de jour (njour) est al=E9atoire par exemple=20
pour le mois de MAI 30 jour. Je ne trouve pas l'erreur.=20
Sub main()
Dim chaine, lejour, lemois, maDate, njour As Variant
njour =3D 0
maDate =3D #5/12/2004#
chaine =3D Format(maDate, "dddd d mmm yyyy")
lejour =3D Format$(Weekday(maDate), "dddd")
lemois =3D Format$(Month(maDate), "mmm")
njour =3D DatePart("d", DateAdd("m", 1, maDate - Day
(maDate)))
End Sub
"big" a écrit dans le message de news:860201c3e985$91eb8780$ Bonjour dans le sous-programme suivant la variable lemois donne toujours la valeur janvier quelque soit la date (maDate) et le nombre de jour (njour) est aléatoire par exemple pour le mois de MAI 30 jour. Je ne trouve pas l'erreur. Sub main() Dim chaine, lejour, lemois, maDate, njour As Variant njour = 0 maDate = #5/12/2004# chaine = Format(maDate, "dddd d mmm yyyy") lejour = Format$(Weekday(maDate), "dddd") lemois = Format$(Month(maDate), "mmm") njour = DatePart("d", DateAdd("m", 1, maDate - Day (maDate))) End Sub
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:860201c3e985$91eb8780$a001280a@phx.gbl...
Bonjour
dans le sous-programme suivant la variable lemois donne
toujours la valeur janvier quelque soit la date (maDate)
et le nombre de jour (njour) est aléatoire par exemple
pour le mois de MAI 30 jour. Je ne trouve pas l'erreur.
Sub main()
Dim chaine, lejour, lemois, maDate, njour As Variant
njour = 0
maDate = #5/12/2004#
chaine = Format(maDate, "dddd d mmm yyyy")
lejour = Format$(Weekday(maDate), "dddd")
lemois = Format$(Month(maDate), "mmm")
njour = DatePart("d", DateAdd("m", 1, maDate - Day
(maDate)))
End Sub
"big" a écrit dans le message de news:860201c3e985$91eb8780$ Bonjour dans le sous-programme suivant la variable lemois donne toujours la valeur janvier quelque soit la date (maDate) et le nombre de jour (njour) est aléatoire par exemple pour le mois de MAI 30 jour. Je ne trouve pas l'erreur. Sub main() Dim chaine, lejour, lemois, maDate, njour As Variant njour = 0 maDate = #5/12/2004# chaine = Format(maDate, "dddd d mmm yyyy") lejour = Format$(Weekday(maDate), "dddd") lemois = Format$(Month(maDate), "mmm") njour = DatePart("d", DateAdd("m", 1, maDate - Day (maDate))) End Sub
Quelqu'un pourra bien m'aider ? Merci d'avance.
Pascal B.
Pour utiliser "dddd", "mmm", etc dans un Format, il faut une expression de type Date. Hors, les fontions WeekDay et Month ne retourne pas une date mais un entier de 1 à 7 pour WeekDay et 1 à 12 pour Month.
Cordialement Pascal
"Pascal B." <pascbr[A.R.O.B.A.S.E]hotmail[P.O.I.N.T]com> a écrit dans le message de news: | Salut; | | Ecris ceci: | | lejour = Format$(maDate, "dddd") | lemois = Format$(maDate, "mmm") | | | | Pascal | | "big" a écrit dans le message de news:860201c3e985$91eb8780$ | Bonjour | dans le sous-programme suivant la variable lemois donne | toujours la valeur janvier quelque soit la date (maDate) | et le nombre de jour (njour) est aléatoire par exemple | pour le mois de MAI 30 jour. Je ne trouve pas l'erreur. | Sub main() | Dim chaine, lejour, lemois, maDate, njour As Variant | njour = 0 | maDate = #5/12/2004# | chaine = Format(maDate, "dddd d mmm yyyy") | lejour = Format$(Weekday(maDate), "dddd") | lemois = Format$(Month(maDate), "mmm") | njour = DatePart("d", DateAdd("m", 1, maDate - Day | (maDate))) | End Sub | | | Quelqu'un pourra bien m'aider ? | Merci d'avance. | |
Pour utiliser "dddd", "mmm", etc dans un Format, il faut une expression de type Date.
Hors, les fontions WeekDay et Month ne retourne pas une date mais un entier
de 1 à 7 pour WeekDay et 1 à 12 pour Month.
Cordialement
Pascal
"Pascal B." <pascbr[A.R.O.B.A.S.E]hotmail[P.O.I.N.T]com> a écrit dans le message de news:edPcN2Y6DHA.2412@TK2MSFTNGP09.phx.gbl...
| Salut;
|
| Ecris ceci:
|
| lejour = Format$(maDate, "dddd")
| lemois = Format$(maDate, "mmm")
|
|
|
| Pascal
|
| "big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:860201c3e985$91eb8780$a001280a@phx.gbl...
| Bonjour
| dans le sous-programme suivant la variable lemois donne
| toujours la valeur janvier quelque soit la date (maDate)
| et le nombre de jour (njour) est aléatoire par exemple
| pour le mois de MAI 30 jour. Je ne trouve pas l'erreur.
| Sub main()
| Dim chaine, lejour, lemois, maDate, njour As Variant
| njour = 0
| maDate = #5/12/2004#
| chaine = Format(maDate, "dddd d mmm yyyy")
| lejour = Format$(Weekday(maDate), "dddd")
| lemois = Format$(Month(maDate), "mmm")
| njour = DatePart("d", DateAdd("m", 1, maDate - Day
| (maDate)))
| End Sub
|
|
| Quelqu'un pourra bien m'aider ?
| Merci d'avance.
|
|
Pour utiliser "dddd", "mmm", etc dans un Format, il faut une expression de type Date. Hors, les fontions WeekDay et Month ne retourne pas une date mais un entier de 1 à 7 pour WeekDay et 1 à 12 pour Month.
Cordialement Pascal
"Pascal B." <pascbr[A.R.O.B.A.S.E]hotmail[P.O.I.N.T]com> a écrit dans le message de news: | Salut; | | Ecris ceci: | | lejour = Format$(maDate, "dddd") | lemois = Format$(maDate, "mmm") | | | | Pascal | | "big" a écrit dans le message de news:860201c3e985$91eb8780$ | Bonjour | dans le sous-programme suivant la variable lemois donne | toujours la valeur janvier quelque soit la date (maDate) | et le nombre de jour (njour) est aléatoire par exemple | pour le mois de MAI 30 jour. Je ne trouve pas l'erreur. | Sub main() | Dim chaine, lejour, lemois, maDate, njour As Variant | njour = 0 | maDate = #5/12/2004# | chaine = Format(maDate, "dddd d mmm yyyy") | lejour = Format$(Weekday(maDate), "dddd") | lemois = Format$(Month(maDate), "mmm") | njour = DatePart("d", DateAdd("m", 1, maDate - Day | (maDate))) | End Sub | | | Quelqu'un pourra bien m'aider ? | Merci d'avance. | |
