Avec une zone de texte nommée Text1 contenant une date
DateSerial(Year(Text1), Month(Text1) + 2, 0) devrait répondre à ton besoin.
jack a écrit :
Bonjour,
Je cherche une fonction qui me retournerait, en fonction d'une date, la valeur 30 jours fin de mois
Merci
-- A+ Eric
LE TROLL
Bonjour,
Comprends pas tout, est-ce la date du dernier jour du mois, selon le mois, alors:
dim mois as long dim maxi as long dim an as long mois=x an=y
' > 1900 < 2100, sinon plus de calculs select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- Merci beaucoup, au revoir et à bientôt :o) ------ Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "jack" a écrit dans le message de news: % | Bonjour, | | Je cherche une fonction qui me retournerait, en fonction d'une date, la | valeur 30 jours fin de mois | | Merci | |
Bonjour,
Comprends pas tout, est-ce la date du dernier
jour du mois, selon le mois, alors:
dim mois as long
dim maxi as long
dim an as long
mois=x
an=y
' > 1900 < 2100, sinon plus de calculs
select case mois
case 1,3,5,7,8,10,12: maxi1
case 4,6,9,11: maxi0
case 2
maxi = 28
if an mod 4 = 0 maxi = 29
end select
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"jack" <jack@lcbd.fr> a écrit dans le message de
news: %234CVKRIoIHA.3960@TK2MSFTNGP02.phx.gbl...
| Bonjour,
|
| Je cherche une fonction qui me retournerait, en
fonction d'une date, la
| valeur 30 jours fin de mois
|
| Merci
|
|
Comprends pas tout, est-ce la date du dernier jour du mois, selon le mois, alors:
dim mois as long dim maxi as long dim an as long mois=x an=y
' > 1900 < 2100, sinon plus de calculs select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- Merci beaucoup, au revoir et à bientôt :o) ------ Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "jack" a écrit dans le message de news: % | Bonjour, | | Je cherche une fonction qui me retournerait, en fonction d'une date, la | valeur 30 jours fin de mois | | Merci | |
jack
Parfait.
Merci beaucoup
"Eric" wrote in message news:%
Bonjour,
Avec une zone de texte nommée Text1 contenant une date
DateSerial(Year(Text1), Month(Text1) + 2, 0) devrait répondre à ton
besoin.
jack a écrit : > Bonjour, > > Je cherche une fonction qui me retournerait, en fonction d'une date, la > valeur 30 jours fin de mois > > Merci > >
-- A+ Eric
Parfait.
Merci beaucoup
"Eric" <f_framZZ@hotmail.com> wrote in message
news:%23V361fIoIHA.3900@TK2MSFTNGP05.phx.gbl...
Bonjour,
Avec une zone de texte nommée Text1 contenant une date
DateSerial(Year(Text1), Month(Text1) + 2, 0) devrait répondre à ton
besoin.
jack a écrit :
> Bonjour,
>
> Je cherche une fonction qui me retournerait, en fonction d'une date, la
> valeur 30 jours fin de mois
>
> Merci
>
>
mois=mois+1 ' >1900 < 2100 if mois = 13 then mois=1 select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "LE TROLL" <le a écrit dans le message de news: % | Bonjour, | | Comprends pas tout, est-ce la date du dernier | jour du mois, selon le mois, alors: | | dim mois as long | dim maxi as long | dim an as long | mois=x | an=y | | | ' > 1900 < 2100, sinon plus de calculs | select case mois | case 1,3,5,7,8,10,12: maxi1 | case 4,6,9,11: maxi0 | case 2 | maxi = 28 | if an mod 4 = 0 maxi = 29 | end select | | | -- | Merci beaucoup, au revoir et à bientôt :o) | ------ | Romans, logiciels, email, site personnel | http://irolog.free.fr/joe.htm | ------------------------------------------------------------------------------------ | "jack" a écrit dans le message de | news: % || Bonjour, || || Je cherche une fonction qui me retournerait, en | fonction d'une date, la || valeur 30 jours fin de mois || || Merci || || | |
ahhhhhhhhhhhhhh
mois=mois+1 ' >1900 < 2100
if mois = 13 then mois=1
select case mois
case 1,3,5,7,8,10,12: maxi1
case 4,6,9,11: maxi0
case 2
maxi = 28
if an mod 4 = 0 maxi = 29
end select
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le
message de news:
%230IAgoIoIHA.5096@TK2MSFTNGP02.phx.gbl...
| Bonjour,
|
| Comprends pas tout, est-ce la date du dernier
| jour du mois, selon le mois, alors:
|
| dim mois as long
| dim maxi as long
| dim an as long
| mois=x
| an=y
|
|
| ' > 1900 < 2100, sinon plus de calculs
| select case mois
| case 1,3,5,7,8,10,12: maxi1
| case 4,6,9,11: maxi0
| case 2
| maxi = 28
| if an mod 4 = 0 maxi = 29
| end select
|
|
| --
| Merci beaucoup, au revoir et à bientôt :o)
| ------
| Romans, logiciels, email, site personnel
| http://irolog.free.fr/joe.htm
| ------------------------------------------------------------------------------------
| "jack" <jack@lcbd.fr> a écrit dans le message de
| news: %234CVKRIoIHA.3960@TK2MSFTNGP02.phx.gbl...
|| Bonjour,
||
|| Je cherche une fonction qui me retournerait, en
| fonction d'une date, la
|| valeur 30 jours fin de mois
||
|| Merci
||
||
|
|
mois=mois+1 ' >1900 < 2100 if mois = 13 then mois=1 select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "LE TROLL" <le a écrit dans le message de news: % | Bonjour, | | Comprends pas tout, est-ce la date du dernier | jour du mois, selon le mois, alors: | | dim mois as long | dim maxi as long | dim an as long | mois=x | an=y | | | ' > 1900 < 2100, sinon plus de calculs | select case mois | case 1,3,5,7,8,10,12: maxi1 | case 4,6,9,11: maxi0 | case 2 | maxi = 28 | if an mod 4 = 0 maxi = 29 | end select | | | -- | Merci beaucoup, au revoir et à bientôt :o) | ------ | Romans, logiciels, email, site personnel | http://irolog.free.fr/joe.htm | ------------------------------------------------------------------------------------ | "jack" a écrit dans le message de | news: % || Bonjour, || || Je cherche une fonction qui me retournerait, en | fonction d'une date, la || valeur 30 jours fin de mois || || Merci || || | |
Eric
Bonjour,
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
PS: pour l'année bisextile, il y a aussi une histoire de multiple de 100 ou qq chose de ce genre, me rappelle plus.
LE TROLL a écrit :
ahhhhhhhhhhhhhh
mois=mois+1 ' >1900 < 2100 if mois = 13 then mois=1 select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- A+ Eric
Bonjour,
Mais là encore, il te faut gérer le passage à l'année suivante alors
qu'avec DateSerial(...) tout se fait tout seul ;-)
PS: pour l'année bisextile, il y a aussi une histoire de multiple de 100
ou qq chose de ce genre, me rappelle plus.
LE TROLL a écrit :
ahhhhhhhhhhhhhh
mois=mois+1 ' >1900 < 2100
if mois = 13 then mois=1
select case mois
case 1,3,5,7,8,10,12: maxi1
case 4,6,9,11: maxi0
case 2
maxi = 28
if an mod 4 = 0 maxi = 29
end select
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
PS: pour l'année bisextile, il y a aussi une histoire de multiple de 100 ou qq chose de ce genre, me rappelle plus.
LE TROLL a écrit :
ahhhhhhhhhhhhhh
mois=mois+1 ' >1900 < 2100 if mois = 13 then mois=1 select case mois case 1,3,5,7,8,10,12: maxi1 case 4,6,9,11: maxi0 case 2 maxi = 28 if an mod 4 = 0 maxi = 29 end select
-- A+ Eric
Jean-marc
Eric wrote:
Bonjour,
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
Hello,
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ? -- Cordialement
Aski MVP Windows Desktop Experience
Bonjour Jean-Marc,
"Jean-marc" a écrit...
Eric wrote:
Mais là encore, il te faut gérer le passage à l'année suivante alors
qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça:
http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte
d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres
fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut.
Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant
en décrémentant de 1 jour ?
--
Cordialement
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ? -- Cordialement
Aski MVP Windows Desktop Experience
Driss HANIB
Salut Aski c'est effectivement la méthode que j'utilise pour savoir quel est le dernier jour du mois de février pour une année donnée Driss
"aski" a écrit dans le message de news:
Bonjour Jean-Marc,
"Jean-marc" a écrit...
Eric wrote:
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ? -- Cordialement
Aski MVP Windows Desktop Experience
Salut Aski
c'est effectivement la méthode que j'utilise pour savoir quel est le dernier
jour du mois de février pour une année donnée
Driss
"aski" <aski@asc.asc> a écrit dans le message de news:
O2ZtmAKoIHA.4832@TK2MSFTNGP06.phx.gbl...
Bonjour Jean-Marc,
"Jean-marc" a écrit...
Eric wrote:
Mais là encore, il te faut gérer le passage à l'année suivante alors
qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça:
http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte
d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres
fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut.
Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant
en décrémentant de 1 jour ?
--
Cordialement
Salut Aski c'est effectivement la méthode que j'utilise pour savoir quel est le dernier jour du mois de février pour une année donnée Driss
"aski" a écrit dans le message de news:
Bonjour Jean-Marc,
"Jean-marc" a écrit...
Eric wrote:
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ? -- Cordialement
Aski MVP Windows Desktop Experience
Jean-marc
aski wrote:
Bonjour Jean-Marc,
"Jean-marc" a écrit...
Eric wrote:
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ?
Hello Aski,
C'est très précisément ce que fait la proposistion d'Eric:
DateSerial(Year(Text1), Month(Text1) + 2, 0)
Le zero comme dernier argument de DateSerial permet d'avoir "le jour avant le 1er jour de 2 mois après", c'est à dire "le dernier jour du mois suivant".
En utilisant DateSerial, on indique l'année et le "sale boulot" est fait par la fonction, qui se charge de tester la bissextilité et tout ça.
On doit d'une manière ou d'une autre tenir compte de l'année, on ne peut pas y couper à cause de la bisextilité.
Sans mention de l'année, impossible de répondre à la question:
"Quelle est la date d'échéance à "30 jours fin de mois" pour un paiement fait le 15 Janvier"
Si il n'y avait pas Février, on pourrait se passer de l'année grâce à l'alternance 30-31-30-31-...
Mais là encore, il te faut gérer le passage à l'année suivante alors
qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça:
http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte
d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres
fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut.
Pour éviter de teste l'année, ne peut-on partir du premier du mois
suivant en décrémentant de 1 jour ?
Hello Aski,
C'est très précisément ce que fait la proposistion d'Eric:
DateSerial(Year(Text1), Month(Text1) + 2, 0)
Le zero comme dernier argument de DateSerial permet d'avoir
"le jour avant le 1er jour de 2 mois après", c'est à dire
"le dernier jour du mois suivant".
En utilisant DateSerial, on indique l'année et le "sale boulot"
est fait par la fonction, qui se charge de tester la bissextilité
et tout ça.
On doit d'une manière ou d'une autre tenir compte de l'année,
on ne peut pas y couper à cause de la bisextilité.
Sans mention de l'année, impossible de répondre à la question:
"Quelle est la date d'échéance à "30 jours fin de mois" pour
un paiement fait le 15 Janvier"
Si il n'y avait pas Février, on pourrait se passer de l'année
grâce à l'alternance 30-31-30-31-...
Mais là encore, il te faut gérer le passage à l'année suivante alors qu'avec DateSerial(...) tout se fait tout seul ;-)
A noter qu'un article de notre FAQ parle de tout ça: http://faq.vb.free.fr/index.php?question
Il contient entre autre une implémentation exacte d'une fonction testant si une année est bissextile ou non.
On y parle bien sur aussi de DateSerial() et des autres fonctions de manipulation de dates.
Je viens d'avoir une idée, je ne sais pas ce qu'elle vaut. Pour éviter de teste l'année, ne peut-on partir du premier du mois suivant en décrémentant de 1 jour ?
Hello Aski,
C'est très précisément ce que fait la proposistion d'Eric:
DateSerial(Year(Text1), Month(Text1) + 2, 0)
Le zero comme dernier argument de DateSerial permet d'avoir "le jour avant le 1er jour de 2 mois après", c'est à dire "le dernier jour du mois suivant".
En utilisant DateSerial, on indique l'année et le "sale boulot" est fait par la fonction, qui se charge de tester la bissextilité et tout ça.
On doit d'une manière ou d'une autre tenir compte de l'année, on ne peut pas y couper à cause de la bisextilité.
Sans mention de l'année, impossible de répondre à la question:
"Quelle est la date d'échéance à "30 jours fin de mois" pour un paiement fait le 15 Janvier"
Si il n'y avait pas Février, on pourrait se passer de l'année grâce à l'alternance 30-31-30-31-...