Como obter a data e hora atuais?

Neste tutorial, aprenderemos diferentes maneiras de obter a data e hora de hoje usando código VBA.

Data de hoje em VBA

No VBA, existe uma função chamada ” DATE ” que você pode usar para obter a data atual. Quando você usa esta função, assim como no exemplo a seguir, ela retorna a data atual com base na configuração de data do sistema.

 Sub myMacro() Range("A1") = Date End Sub

Quando você executa este código , ele insere a data atual na célula A1 e usa o formato de data atual que você possui no Excel.

Você também pode usar esta função para obter a data de hoje em uma caixa de mensagem , assim como o código a seguir.

 Sub myMacro() MsgBox Date End Sub

Data e hora atual de hoje

Da mesma forma, existe uma função chamada “ AGORA ” que você pode usar para obter a data e hora de hoje. Como você pode ver, usamos isso no código a seguir para obter a data e hora atuais na célula A1.

 Sub myMacro() Range("A1") = Now End Sub

Hora atual

Agora, se você deseja obter apenas a hora atual em vez da data e hora, você precisa usar outra função “Formato” ( você pode ler mais sobre esta função aqui ) junto com a função agora.

No código acima, usamos a função now para fornecer o valor da função format e, em seguida, usamos um formato apenas para o tempo.

 Sub myMacro() Range("A1") = Format( Now , "HH:MM Am/Pm") End Sub

Alterando o formato da data de hoje (exemplo: AAAAMMDD)

Você também pode usar a função de formato para alterar o formato da data atual. No código a seguir, usamos a função de formato e especificamos o formato como “AAAAMMDD”.

 Sub myMacro() Range ("A1"). Value = Format ( Date , "YYYY/MM/DD") End Sub

Nota: No código acima, usamos a propriedade value para inserir a data na célula A1.