| Descricao: |
 Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA retorna Funções DATAS, retorna mensagem de datas como , dia, mes, ano, e também retorna na folha de planilha determinadas células . VBA possui diversas funções que auxiliam no desenvolvimento. Vejamos as principais Funções de Datas
Você sabia que as datas e horas datas e horas são armazenadas internamente na memória como números. Isto de certa forma nos permite realizar os calculos com datas e também horas, como por exemplo adicionar dias ao dia de hoje para obtenção de uma data futura.
O Visual Basic realiza esses cálculos como muita facilidade com as funções que retornam datas e horas como também a atual, e gera esses dados baseado em string e ou outra expressão. Temos excelentes exemplos de planilhas nos Módulos [COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA- SABEREXCEL] - com fórmulas e uso das Funções.
Função Descrição
Date.................................: Retorna a data atual
Time.................................: Retorna a hora atual
Now..................................: Retorna a data e hora atual
Hour, Minute, Second .........: Retornam Hora, Minuto e Segundo atual
Day, Month, Year ...............: Retornam Dia, Mês e Ano de uma data qualquer
DataDiff ............................: Retorna a diferença entre duas datas
Public Const sb = vbInformation
Public Const titulo = "Saberexcel - o site das macros"
Sub Funcao_data_retorna_planilha()
[A1].Select
[A1:D10].ClearContents
ActiveCell.Value = Date
ActiveCell.Offset(0, 2).Value = "Data atual"
MsgBox "Data Atual.......: " & Date, sb, titulo: ActiveCell.Value = Date
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Day(Date)
ActiveCell.Offset(0, 2).Value = "dia de hoje"
MsgBox "Dia de Hoje....: " & Day(Date), sb, titulo: ActiveCell.Value = Day(Date)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Format(Date, "MMMM") & " ( " & Month(Date) & " )"
ActiveCell.Offset(0, 2).Value = "Mês atual"
MsgBox "Mês Atual......: " & Month(Date) & " = " & Format(Date, "Mmmm"), sb, titulo
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Year(Date)
ActiveCell.Offset(0, 2).Value = "Ano atual"
MsgBox "Mês Atual......: " & Year(Date), sb, titulo
ActiveCell.Offset(2, 0).Select
ActiveCell.Value = "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & "."
ActiveCell.Offset(0, 2).Value = "Local e Data"
MsgBox "Data...........: " & "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & ".", sb, titulo
[D1].Select
End Sub
Fiz essa mensagem, com objetivo didático, para que voce veja as declarações públicas de variáveis no ínicio do módulo, isso simplifica quando voce tem que enviar um uma determinada mensagem várias vezes dentro de um módulo, não precisa ficar digitando só inserir as variáveis.
Sub aprender_vba_saberexcel()
MsgBox "Aprenda microsoft Excel VBA com qualidade", sb, titulo
End Sub
'funçao somente com retorno da mensagem
Sub Funcao_datas_msg()
MsgBox "Data Atual : " & Date, sb, titulo
MsgBox "Dia de Hoje : " & Day(Date), sb, titulo
MsgBox "Mês Atual : " & Month(Date), sb, titulo
MsgBox "Mês Atual : " & Year(Date), sb, titulo
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel
Publicidade
Compre com Segurança, garantia e ótimos preços e produtos nas lojas SubMarino |