last day of month...

User avatar
sal21
PlatinumLounger
Posts: 4343
Joined: 26 Apr 2010, 17:36

last day of month...

Post by sal21 »

...
ANNO=2021
MESE=6
dim LASTDAY as integer
LASTDAY = DateSerial(ANNO, MESE, 1) - 1

LASTDAY=44374!

i need 30
Top
User avatar
HansV
Administrator
Posts: 78391
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: last day of month...

Post by HansV »

LASTDAY = Day(DateSerial(ANNO, MESE + 1, 0))
Best wishes,
Hans
Top
User avatar
sal21
PlatinumLounger
Posts: 4343
Joined: 26 Apr 2010, 17:36

Re: last day of month...

Post by sal21 »

HansV wrote: ↑
12 Jul 2021, 09:16
 LASTDAY = Day(DateSerial(ANNO, MESE + 1, 0))
:cheers:
Top

Return to “VB/VBA/.Net/Office Scripting”