Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

sapere i giorni di un determinato mese e anno in vba

383 views
Skip to first unread message

Arold

unread,
Jun 7, 2003, 6:29:32 AM6/7/03
to
fornito mese e anno mi deve restituire il numero dei giorni, sapete
aiutarmi?


omnitow

unread,
Jun 7, 2003, 7:00:56 AM6/7/03
to

"Arold" <ar...@libero.it> ha scritto nel messaggio
news:bbset6$jat$1...@lacerta.tiscalinet.it...

> fornito mese e anno mi deve restituire il numero dei giorni, sapete
> aiutarmi?
>
>

GiorniPerMese =
Dateserial(Year(Anno),Month(Mese)+1,0)-Dateserial(Year(Anno),Month(Mese),1)
GiorniPerAnno = Dateserial(Year(Anno),12,31)-Dateserial(Year(Anno),1,1)

Ciao
omnitow

Arold

unread,
Jun 7, 2003, 9:28:39 AM6/7/03
to

> GiorniPerMese =
>
Dateserial(Year(Anno),Month(Mese)+1,0)-Dateserial(Year(Anno),Month(Mese),1)
> GiorniPerAnno = Dateserial(Year(Anno),12,31)-Dateserial(Year(Anno),1,1)
>
> Ciao
> omnitow

ho provato cosi č un pezzo di un select case

Case "FEBBRAIO"
NUMGIORNI = DateSerial(Year(ANNO), Month(2) + 1, 0) -
DateSerial(Year(ANNO), Month(2), 1)

mi restituisce 30 cosa sbaglio secondo te?


Roberto dalla campagna

unread,
Jun 7, 2003, 10:23:26 AM6/7/03
to

Arold <ar...@libero.it> wrote in message
bbset6$jat$1...@lacerta.tiscalinet.it...

> fornito mese e anno mi deve restituire il numero dei giorni, sapete
> aiutarmi?

GiorniDel Mese = Day(DateSerial(Anno, Mese+1, 0))

--
Roberto

---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Roberto dalla campagna

unread,
Jun 7, 2003, 10:23:26 AM6/7/03
to

omnitow <omn...@tin.it> wrote in message
IBjEa.68317$lK4.2...@twister1.libero.it...

Ho dei dubbi che funzioni, visto che le funzioni Year e Month come argomento
vogliono un campo o variabile di tipo Data/ora e non un campo o una
variabile di tipo numerico.

omnitow

unread,
Jun 8, 2003, 6:21:39 AM6/8/03
to

"Roberto dalla campagna" <r.ma...@libero.it> ha scritto nel messaggio
news:yzmEa.68628$Ny5.2...@twister2.libero.it...

ooooops..... piccolo errore?
omnitow


0 new messages