Perfil MVP
Autenticação
Online
Nenhum
Dias no mês
Domingo, 01 Maio 2011 16:56 | Actualizado em Segunda, 02 Maio 2011 14:39 | 
Escrito por Jorge Rodrigues | 
| 
| 
Para termos numa célula o número de dias que o mês corrente tem, normalmente, utilizamos a seguinte fórmula:
=DIA(FIMMÊS(AGORA();0))
Contudo, podemos utilizar uma UDF para obtermos o mesmo resultado, ou seja, em vez de escrevermos uma fórmula com 3 funções, como a que acima foi transcrita, podemos ter apenas uma função, no caso do exemplo que se segue, será a função:
=DiasNoMês()
Eis o código:
Public Function DiasNoMês(Optional dtmDate As Date = 0) As Integer
If dtmDate = 0 Then
dtmDate = Date
End If
DiasNoMês = DateSerial(Year(dtmDate), Month(dtmDate) + 1, 1) - DateSerial(Year(dtmDate), Month(dtmDate), 1)
End Function
Mérito para Ken Getz e Mike Gilbert (VBA Developer's Handbook - Second Edition)