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.
//
//
//
//
'<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.
Rieper
//
//
//
//
