30, 31 du mois

Salut,

Essaye avec IsDate().

--
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/

BV wrote:

Je recherche un moyen de mettre en condition si le mois se termine
par le 29, 30 ou 31.

Merci
vb6

"BV" <BV@discussions.microsoft.com> a écrit dans le message de
news:175503A2-6077-409F-9890-A16ECAB9AE41@microsoft.com...

Je recherche un moyen de mettre en condition si le mois se termine par le

29,

30 ou 31.

Hello,

peux tu formuler plus clairement ta question? Que veux tu dire par "mettre
en condition"?
Et si le mois se termine par 28 (si si, ça arrive)?
Veux tu une fonction? Avec quels paramètres?
Donne des exemples!

Les intervenants de ce forum sont tous de bonne volonté, mais pour les
messages
cryptés, le bon groupe c'est plutot fr.misc.cryptologie ;-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Salut,

Ben y a plusieurs solutions, comme d'habitude...

par exp, dans une procédure avec un variable date, si jamais la date
donnée à cette dernière n'existe pas, et ben ça sort en erreur, façon de
savoir, mais ça c'est juste pour février, pour le reste on peut le mettre en
dur, soit:

sub ma_procedure()
dim ladate as date
select case mois
case 1,3,5,7,8,10,12
case 4,6,9,11
case 2
on error goto erreur
ladate = "..."
end select
exit sub
erreur:
'février = 28
end sub

Tu peux aussi diviser l'année par 4 et par 400, et si = 0 c'est
bissextile pour février

Etc...
-------------



"BV" <BV@discussions.microsoft.com> a écrit dans le message de news:
175503A2-6077-409F-9890-A16ECAB9AE41@microsoft.com...

Je recherche un moyen de mettre en condition si le mois se termine par le
29,
30 ou 31.

Merci
vb6

En fait, il s'agit d'un problème plus complexe. Je m'explique: lorsque
l'usager entre une date, un workbook se crée avec autant de feuille que de
date dans le mois. !!Éh bien. Drôle de coincidence. En ecrivant ses lignes,
j'ai trouvé la solution. S'éloigné de son projet aide !!
Merci du support!

Merci pour le support rapide.
Vous êtes très gentil!

Merci le TROLL,
je vais utiliser ta solution mélanger à mon idée. Continuer
de supporter aussi bien! Vous sauvez des vies!!

Utilises ceci :

Public Function NombreJourParMois(ByRef lYear As Long, ByRef lMonth As Long)
NombreJourParMois = Day(DateSerial(lYear, lMonth + 1, 0))
End Function


Dany

"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
%23tS$wnsEFHA.2180@TK2MSFTNGP12.phx.gbl...

Salut,

Ben y a plusieurs solutions, comme d'habitude...

par exp, dans une procédure avec un variable date, si jamais la date
donnée à cette dernière n'existe pas, et ben ça sort en erreur, façon de
savoir, mais ça c'est juste pour février, pour le reste on peut le mettre
en dur, soit:

sub ma_procedure()
dim ladate as date
select case mois
case 1,3,5,7,8,10,12
case 4,6,9,11
case 2
on error goto erreur
ladate = "..."
end select
exit sub
erreur:
'février = 28
end sub

Tu peux aussi diviser l'année par 4 et par 400, et si = 0 c'est
bissextile pour février

Etc...
-------------



"BV" <BV@discussions.microsoft.com> a écrit dans le message de news:
175503A2-6077-409F-9890-A16ECAB9AE41@microsoft.com...

Je recherche un moyen de mettre en condition si le mois se termine par le
29,
30 ou 31.

Merci
vb6