Sub test()
Dim dtm As Date, lngDays As Long
dtm = "25-Feb-2004"
lngDays = Day(DateSerial(Year(dtm), Month(dtm) + 1, 0))
MsgBox lngDays
End Sub
--
Rob van Gelder -
http://www.vangelder.co.nz/excel
"Charles" wrote in message
...
Hi I need to find uot how many days are in a month in VBA
is there a way of doing this if so can someone help me
please TIA
Charles