erro na função

[ASP!Vb 0]

alguem poderia me dizer o q há de errado com essa função q peguei na net?

ela fucniona com todos os meses mas na hora q o mes é fevereiro ela da um erro

Function FimMes(D)'' Retorna o número de dias de um mês.' Requer um argumento data, já que fevereiro pode mudar se cai num ano bissexto'  If VarType(D) <> 7 Then	FimMes = Null  Else	Select Case Month(D)	  Case 2		If AnoBissexto(Year(D)) Then		  FimMes = 29		Else		  FimMes = 28		End If	  Case 4, 6, 9, 11		FimMes = 30	  Case 1, 3, 5, 7, 8, 10, 12		FimMes = 31	End Select  End If  FimMes = FimMes & "/" & Month(D) & "/" & Year(D)End Function

[Salgado 4]

Quer uma função melhor? Pegue o 1º dia do mês seguinte e diminua 1 dia que terás o último dia do mês.

[ASP!Vb 0]

obrigado, você é sabído, mas será q dessa forma ele considera o ano bissexto?

[Salgado 4]

Cm certeza absoluta, é só usar o DateAdd para fazer as "contas" que é tranquilo.

[ASP!Vb 0]

valew, obrigado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Salgado 4]

Basicamente:

Function FimMes(D)
'
' Retorna o número de dias de um mês.
' Requer um argumento data, já que fevereiro pode mudar se cai num ano bissexto
'
If VarType(D) <> 7 Then
	FimMes = Null
Else
	ProximaData = DateAdd("m",1,D)
	ProximaData = "1/"& Month(ProximaData) &"/"& Year(ProximaData)
	FimMes = DateAdd("d",-1,ProximaData)
End If
End Function

Não testei, fiz de cabeça, qualquer coisa posta.