Bonjour
dans la sub suivante la variable lemois reste toujour en=20
janvier quelque soit la date ( madate) et le nombre de=20
jour est al=E9atoire par exemple pour le mois de MAI j'ai 30=20
jour et pour juin j'ai le bon 31.
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
Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Déjà il semble que ta déclaration des variables n'est pas correcte :
Dim s1,s2 as string Ne correspond pas à : Dim s1 as string,s2 as string
Bon dans ton cas il ne s'agit que de variant donc ca ne change pas grand chose bien qu'il est préférable de déclarer tes variables explicitement ! De plus il existe un type Date permettant de stocker des dates.
Cela ne résoudra pas ton problème, j'ai pas encore trouvé où ca clochait et il faut que j'y aille :-)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"big" a écrit dans le message de news: 884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
Salut,
Déjà il semble que ta déclaration des variables n'est pas correcte :
Dim s1,s2 as string
Ne correspond pas à :
Dim s1 as string,s2 as string
Bon dans ton cas il ne s'agit que de variant donc ca ne change pas grand
chose bien qu'il est préférable de déclarer tes variables explicitement ! De
plus il existe un type Date permettant de stocker des dates.
Cela ne résoudra pas ton problème, j'ai pas encore trouvé où ca clochait et
il faut que j'y aille :-)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
884101c3e976$4f8ded60$a401280a@phx.gbl...
Bonjour
dans la sub suivante la variable lemois reste toujour en
janvier quelque soit la date ( madate) et le nombre de
jour est aléatoire par exemple pour le mois de MAI j'ai 30
jour et pour juin j'ai le bon 31.
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
Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ?
Merci d'avance.
Déjà il semble que ta déclaration des variables n'est pas correcte :
Dim s1,s2 as string Ne correspond pas à : Dim s1 as string,s2 as string
Bon dans ton cas il ne s'agit que de variant donc ca ne change pas grand chose bien qu'il est préférable de déclarer tes variables explicitement ! De plus il existe un type Date permettant de stocker des dates.
Cela ne résoudra pas ton problème, j'ai pas encore trouvé où ca clochait et il faut que j'y aille :-)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"big" a écrit dans le message de news: 884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
surfeur75
Bonjour,
As-tu essayé en inversant le jour et le mois, voire (aaaa, mm, jj)
Tu déclares de type variante une variable de type date (MaDate)!!!
Sinon tu peux faire un truc du genre string = j,m,a,d j = jour m = mois a = an d = j & "/" & m & "/" & a Puis MaDate = d
Je sais que les dates, c'est pas toujours clair, en bricolant et testant tu devrais arriver à faire quelque chose, désolé, vois ce que les autres disent, mais tentes ce que j'ai écrit... -- @+, bye, Joe. Pour m'écrire ng75AROBASEnoosPOINTfr remplace AROBASE et POINT par leur vrai signe Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"big" a écrit dans le message de news: 884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
Bonjour,
As-tu essayé en inversant le jour et le mois, voire (aaaa, mm, jj)
Tu déclares de type variante une variable de type date (MaDate)!!!
Sinon tu peux faire un truc du genre
string = j,m,a,d
j = jour
m = mois
a = an
d = j & "/" & m & "/" & a
Puis MaDate = d
Je sais que les dates, c'est pas toujours clair, en bricolant et testant
tu devrais arriver à faire quelque chose, désolé, vois ce que les autres
disent, mais tentes ce que j'ai écrit...
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
884101c3e976$4f8ded60$a401280a@phx.gbl...
Bonjour
dans la sub suivante la variable lemois reste toujour en
janvier quelque soit la date ( madate) et le nombre de
jour est aléatoire par exemple pour le mois de MAI j'ai 30
jour et pour juin j'ai le bon 31.
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
Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ?
Merci d'avance.
As-tu essayé en inversant le jour et le mois, voire (aaaa, mm, jj)
Tu déclares de type variante une variable de type date (MaDate)!!!
Sinon tu peux faire un truc du genre string = j,m,a,d j = jour m = mois a = an d = j & "/" & m & "/" & a Puis MaDate = d
Je sais que les dates, c'est pas toujours clair, en bricolant et testant tu devrais arriver à faire quelque chose, désolé, vois ce que les autres disent, mais tentes ce que j'ai écrit... -- @+, bye, Joe. Pour m'écrire ng75AROBASEnoosPOINTfr remplace AROBASE et POINT par leur vrai signe Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"big" a écrit dans le message de news: 884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
"big" a écrit dans le message de news:884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:884101c3e976$4f8ded60$a401280a@phx.gbl...
Bonjour
dans la sub suivante la variable lemois reste toujour en
janvier quelque soit la date ( madate) et le nombre de
jour est aléatoire par exemple pour le mois de MAI j'ai 30
jour et pour juin j'ai le bon 31.
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
Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ?
Merci d'avance.
"big" a écrit dans le message de news:884101c3e976$4f8ded60$ Bonjour dans la sub suivante la variable lemois reste toujour en janvier quelque soit la date ( madate) et le nombre de jour est aléatoire par exemple pour le mois de MAI j'ai 30 jour et pour juin j'ai le bon 31. 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 Je ne trouve pas pourquoi. Quelqu'un pourra m'aider SVP ? Merci d'avance.
