Home Excel - Dicas Microsoft Excel VBA Excel VBA - Datas Excel planilha vba datas retorna o ultimo dia do mes funcao

Excel planilha vba datas retorna o ultimo dia do mes funcao

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 17:35  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4083
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30606
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17812
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440641
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA