Есть ли функция отображающая количество дней в месяце?

gorobets dima
Дата: 28.05.2004 17:20:26
А?
Shark
Дата: 28.05.2004 17:28:19
Public Function fn1(pmonth As Integer, pyear As Integer) As Integer
fn1 = DateSerial(pyear, pmonth + 1, 1) - DateSerial(pyear, pmonth, 1)
End Function
gorobets dima
Дата: 28.05.2004 17:38:35
Дело в том что у меня цикл от 1 до 31
cdate(i & month & year)
выскакивает ошибка type mismatch хочу сделать on error выход из цикла. Подскажите плз, как.
Владимир Саныч
Дата: 28.05.2004 17:43:17
cdate(i & month & year) - это не та дата!!!

?cdate(28 & 5 & 2004)
08/07/9708