Último Dia Do Mes

[kuroi]

já vi mta gente se mantando pra saber qual o ultimo dia do mes, tentando calcular ano bissexto e etc e fazendo uma funcao gigante com varios ifs e etc (eu mesmo fazia assim). na verdade não precisa de nd disso. arranjei um jeito simples aqui de fazer q funciona sempre pra qualquer mes, qualquer ano e qualquer dia q esteja na data:

Public Function UltimoDia(datax As Date) As Date
    UltimoDia = DateAdd("m", 1, DateSerial(Year(datax), Month(datax), 1))
    UltimoDia = DateAdd("d", -1, UltimoDia)
End Function[/code]

[Iniciante2015]

Estava pesquisando formas mais simples de achar o "último dia do mês" e me deparei com sua sugestão, que achei ótima!

Apenas para comentar, não desmerecendo sua rotina, no MSDN há uma sugestão mais simples:

Dim UltimoDia as variant

UltimoDia = DateSerial(Ano, Mes, 1 - 1)

Abraço!

[Rogério Oliveira]

? 1 - 1 ?

acho mais simples   

UltimoDia = DateSerial(Ano, Mes, 0)

[Iprifno]

Bom dia,

Funcionou adequadamente da seguinte forma:

UltimoDia = DateSerial(Ano, Mes+1, 0)