VBA: UDF – Função DiasDoMes()

Se pretendermos obter o número de dias que determinado mês tem, como no exemplo,

podemos utilizar uma UDF (User Defined Function), que, no caso concreto, denominaremos como DiasDoMes().

Se quisermos, anteriormente, obter o número do mês a que corresponderá o mês inserido como texto (cfr. células A2, A3 e A4), conseguiremos o resultado, por exemplo em B2, B3 e B4, com a seguinte fórmula:

Depois, criamos a UDF num módulo VBE:

'---------------------------------------------------------------------------------------
' Procedure : DiasDoMes
' Author    : JRod
' Date      : 27/11/2013
' Purpose   : Fornecer o número de dias que determinado mês tem.
'---------------------------------------------------------------------------------------
'
Public Function DiasDoMes(Optional dtmDate As Date = 0) As Integer
    If dtmDate = 0 Then
        dtmDate = Date
    End If

    DiasDoMes = _
    DateSerial(Year(dtmDate), Month(dtmDate) + 1, 1) - _
                DateSerial(Year(dtmDate), Month(dtmDate), 1)

End Function

De seguida, na coluna C, inserimos a fórmula para obtermos o pretendido:

  e copiamos até C4.