Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

14
Nov07

Retornar o total de dias de um mês

Função que retorna o numero de dia do mês anterior pedido, veja a parte dos exemplos para perceber o modo de funcionamento.

Function FimMes(dData,n)
Dim tmp
tmp=DateAdd("m",n+1,dData)
FimMes=tmp-Day(tmp)
End Function


'Exemplos -----------------------------
Dim DiasMes
DiasMes=FimMes(Now(),0) 'Total de dias do mês actual
DiasMes=FimMes(Now(),-1) 'Total de dias do mês anterior
DiasMes=FimMes(Now(),1) 'Total de dias do mês seguinte
'--------------------------------------