actual number of days in a month

[Hu]

hi guys!

i would appreciate if anyone of you VBAmonsters could give me a sulution to a following problem. i need a program that would return the actual number of days of a month form randomly entered date (i.e. if 02/02/2004 is entered it should return 29). is the idea clear?
hope you can help me & thanks in advance!

hu

[Andrew Poulsom]

Try this formula:

=DAY(DATE(YEAR(A1),MONTH(A1)+1,0))

where A1 contains your data.

[fairwinds]

Hi,

while wating for code, you could use this formula:

=EOMONTH(A1,0)-EOMONTH(A1,-1)

[PaddyD]

with a date in a1:

=DAY(DATE(YEAR(A1),MONTH(A1)+1,0))

[Ponsy Nob.]

Or :-

=DAY(EOMONTH(A1,0))

[Hu]

thanks!

that's ok, but i need a macro script (for generating a list of dates, which would contain only last dates of particular months). everything else except for the problem mentioned is taken care of, so do not bother about that.

so... can you still hepl me?


regards&thanks
hu

[Ponsy Nob.]

Where and how will the dates be created and where are the days per month to be put?

[Ivan F Moala]

Sub Tester()
Dim dDate As Date

'// Month/Day/Year
dDate = #2/8/2003#
MsgBox Format(DateSerial(Year(dDate), Month(dDate) + 1, 0), "dd")

End Sub

[Hu]

wow!
it seems that it works.

thank you all very very very much!


&respect

hu

[TheBuGz]

I want to Repalce the year like if it is 2004 i want it to change it to 2005 and then to 2006 and so on plz tell me how to

******** ******************** ************************************************************************>

Microsoft Excel - DaysinMonth.xls ___Running: 11.0 : OS = Windows XP
(F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)bout
B2E2B3E3B4E4B5E5B6E6B7E7B8E8B9E9B10E10B11E11B12E12B13E13B14E14 =
	A	B	C	D	E
1	Year*2004		*	Year*2005
2	January*1,*2004	31	*	January*1,*2005	31
3	February*1,*2004	29	*	February*1,*2005	28
4	March*1,*2004	31	*	March*1,*2005	31
5	April*1,*2004	30	*	April*1,*2005	30
6	May*1,*2004	31	*	May*1,*2005	31
7	June*1,*2004	30	*	June*1,*2005	30
8	July*1,*2004	31	*	July*1,*2005	31
9	August*1,*2004	31	*	August*1,*2005	31
10	September*1,*2004	30	*	September*1,*2005	30
11	October*1,*2004	31	*	October*1,*2005	31
12	November*1,*2004	30	*	November*1,*2005	30
13	December*1,*2004	31	*	December*1,*2005	31
14	Total	366	*	Total	365
Sheet1 *

[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.

in this sheet beacuse when i Replace with the Excel it gives some Error