OVH Cloud OVH Cloud

Compter le nombre de jours total d'un mois ?

5 réponses
Avatar
Bruno Frisque
Bonjour le groupe,

Ai beaucoup cherché et beaucoup trouvé sur la manip des dates, mais pas ce
qu'il me faudrait :

Calculer de nombre de jours total d'un mois.

ok janvier donnera 31

mais pour février 2008 ??
pour février 2011 ?

exemple de "code" nombre de jours de ce mois pour date(#13/08/05#)
Cette fonction existe-elle ?

d'avance merci

5 réponses

Avatar
3stone
Salut,

"Bruno Frisque"
| Ai beaucoup cherché et beaucoup trouvé sur la manip des dates, mais pas ce
| qu'il me faudrait :
|
| Calculer de nombre de jours total d'un mois.
|
| ok janvier donnera 31
|
| mais pour février 2008 ??
| pour février 2011 ?
|
| exemple de "code" nombre de jours de ce mois pour date(#13/08/05#)
| Cette fonction existe-elle ?


Il y a ce qu'il faut...

Debug.print Day(dateserial(2008,2 +1 ,0))

autrement dit...
Day(Dateserial(année, mois + 1, 0 ))

le zéro, c'est pour afficher la "veille" du premier jour du mois suivant !
Oui... il faut la relire deux fois, celle-là :o))


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Bruno Frisque
OK + merci réponse si rapide!
= à relire demain, calmement ...
çà semble dur dur à cette heure.
Encore merci .

et @+


"3stone" wrote in message
news:eQnE$
Salut,

"Bruno Frisque"
| Ai beaucoup cherché et beaucoup trouvé sur la manip des dates, mais pas
ce

| qu'il me faudrait :
|
| Calculer de nombre de jours total d'un mois.
|
| ok janvier donnera 31
|
| mais pour février 2008 ??
| pour février 2011 ?
|
| exemple de "code" nombre de jours de ce mois pour date(#13/08/05#)
| Cette fonction existe-elle ?


Il y a ce qu'il faut...

Debug.print Day(dateserial(2008,2 +1 ,0))

autrement dit...
Day(Dateserial(année, mois + 1, 0 ))

le zéro, c'est pour afficher la "veille" du premier jour du mois suivant !
Oui... il faut la relire deux fois, celle-là :o))


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
Bruno Frisque
C'est génial .. et çà marche parfaitement !
Il fallait y penser...
Le petit code :
'Day(Dateserial(année, mois + 1, 0 )) '3Stone 13/08/05. 'Debug.Print
Day(DateSerial(2005, 8 + 1, 0))
Dim Y, M As Integer
Y = Year(FactDate)
M = Month(FactDate)
Text64 = Day(DateSerial(Y, M + 1, 0))

Et le Text64 donne le nombre de jours du mois de la Date de facture !
et même pour 02/2011 etc !
Grand Merci




"3stone" wrote in message
news:eQnE$
Salut,

"Bruno Frisque"
| Ai beaucoup cherché et beaucoup trouvé sur la manip des dates, mais pas
ce

| qu'il me faudrait :
|
| Calculer de nombre de jours total d'un mois.
|
| ok janvier donnera 31
|
| mais pour février 2008 ??
| pour février 2011 ?
|
| exemple de "code" nombre de jours de ce mois pour date(#13/08/05#)
| Cette fonction existe-elle ?


Il y a ce qu'il faut...

Debug.print Day(dateserial(2008,2 +1 ,0))

autrement dit...
Day(Dateserial(année, mois + 1, 0 ))

le zéro, c'est pour afficher la "veille" du premier jour du mois suivant !
Oui... il faut la relire deux fois, celle-là :o))


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
3stone
Salut,

"Bruno Frisque"
[...]
| Dim Y, M As Integer


modifie encore la déclaration de 'Y'

Dim Y as integer, M As integer

parce que chez toi, 'Y' est déclaré 'Variant' par défaut de type !


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Bruno Frisque
Super ...
Je "tune" donc 1 peu + ... mais çà marche "au poil" !
Encore tout grand merci
à+



"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
[...]
| Dim Y, M As Integer


modifie encore la déclaration de 'Y'

Dim Y as integer, M As integer

parce que chez toi, 'Y' est déclaré 'Variant' par défaut de type !


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw