Saberexcel - Site de quem precisa aprender Macros MS Excel VBA

Essas macros e Função do Aplicativo Microsoft Excel VBA( Visual Basic Application ), retornam o útlimo dia do mês da data atual, aproveitando o exemplo, inserí formatação data para que retorne uma mensagem do mês atual (mes texto (Abril)).

Essas função é muito importante para quem precisa retornar datas, calcular folha de pagamento, calcular pagamentos, vencimentos, taxa de juros, enfim uma infinidade de aplicações úteis onde envolve calculos baseados no último dia do mês. Espero que o exemplo lhe seja útil.
Fique com Deus, Expedito Marcondes

Sub Verifica_ultimo_dia_mes_data_atual()
Dim vDia
Dim vData
Dim sb

vData = Now()
vDia = DatePart("d", DateAdd("m", 1, DateAdd("d", -Day(vData), vData)))
sb = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"

MsgBox "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Ultimo dia do do mes de " & Format((Now()), "mmmm") & " é " & vDia, vbInformation, "Sem os parênteses"

[G10].Value = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"
[G11].Value = sb  'retornando valor para célula a partir de uma variável(sb)

End Sub

Sub Utimo_dia_do_Mês()
MsgBox "O último dia do mês de [ " & Format((Now()), "mmmm") & " ] é dia..: [ " & vUltimo_dia_mes(Year(Now()), Month(Now())) & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Mes Atual.....: " & Format((Now()), "mmmm"), vbInformation, "Saberexcel - site das macros"
End Sub

'esta função verfica o último dia dos meses
Private Function vUltimo_dia_mes(vAno As Integer, vMes As Integer, Optional vDia As Integer = 1) As Integer
Dim vArray_Ultimo_Dia_Meses As Variant

 vArray_Ultimo_Dia_Meses = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

 If vMes = 2 Then
    If IsDate("29/2/" & vAno) Then
       vUltimo_dia_mes = 29
    Else
       vUltimo_dia_mes = 28
    End If
 Else
    vUltimo_dia_mes = vArray_Ultimo_Dia_Meses(vMes)
 End If
 
End Function

'esta macro limpa as células nomeadas como 'a' - para auxliar o usuário no teste (repetir o teste com facilidade)
Sub limpar_teste()
[a].ClearContents
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA( Visual Basic Application ),  sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

  Baixe o exemplo de planilha contendo os macros acima
Excel planiha vba datas retorna o ultimo dia do mes funcao (71.2 KB)



Publicidade .
Compre com segurança, garantia e ótimos preços