Função no Excel Retornar o Último Dia do Mês com VBA

Download do Arquivo

Hoje disponibilizo uma função para retornar o último dia do mês á partir de uma célula com data.

Esta função é particularmente útil para cálculos financeiros que envolvem carência ou para criar uma lista rápida com os dados de início e final de mês. Como na figura.


//
//

//
//

Último dia do mês

Último dia do mês

'<alteracao> ' 'Função que retorna o último dia do mês Function gfUltimoDiaMes(ByVal vCel As String) As Date Dim lData As Date 'Dia do mês subsequente If Month(vCel) < 12 Then lData = "1/" & (Month(vCel) + 1) & "/" & Year(vCel) Else lData = "1/1" & "/" & Year(vCel) + 1 End If 'Dia do mês subsequente -1, ou seja, último dia do mês anterior lData = lData - 1 'Retorna informação gfUltimoDiaMes = lData End Function '</alteracao>

Esta função pode ser incluída também nas suas funções úteis como um suplemento como já explicado no post Criando Funções Próprias Globais.

A chamada da função =gfUltimoDiaMes(A1), sendo A1 = 1/1/2010 por exemplo e o retorno será 31/1/2010.

Download do Arquivo

Rieper

//
//

//
//