Como obter a data actual en VBA (3 xeitos)

  • Comparte Isto
Hugh West

Neste artigo mostrarei como podes obter a data actual en VBA en Excel. Aprenderá a mostrar a data actual, a hora actual, así como a formatar a data e a hora no formato desexado.

Como obter a data actual en VBA (vista rápida)

Descargar libro de prácticas

Descargar este libro de prácticas para exercer a tarefa mentres le este artigo.

Obter datas actuais en VBA.xlsm

3 xeitos de obter a data actual en VBA

Imos explorar as mellores formas de obter a data actual data e hora nunha Macro en VBA .

1. Obter a data actual pola función de data de VBA

Primeiro de todo, vexamos como podemos obter a data actual. Podes obter a data actual en VBA de forma bastante completa usando a función Data de VBA .

A liña de código será:

Current_Date=Date()

O código completo para mostrar a data actual será:

Código VBA:

7844

Nota: Este código crea unha Macro chamada Get_Current_Date .

Saída:

Execute esta macro e obterá unha Caixa de mensaxes que mostra o data actual, 11-xan-22 .

Ler máis: Como inserir a data actual en Excel

2. Insira a data e a hora actual coa función Agora de VBA

Podes usar a función Agora de VBA para obtera data actual xunto coa hora actual.

A liña de código será:

Current_Date_and_Time = Now()

Polo tanto, o código para mostrar a data e a hora actual será:

Código VBA:

3020

Nota: Este o código crea unha Macro chamada Get_Current_Date_and_Time .

Saída:

Execute esta Macro e obterá unha Caixa de mensaxes que mostra a data e a hora actual, 11-Xan-22 11:23:20 AM .

Ler máis: funcións agora e formato en Excel VBA

Lecturas similares

  • Variable de data en códigos VBA (7 usos de macros con exemplos)
  • Como usar o atallo de data de Excel
  • Calcular a data de vencemento con fórmula en Excel (7 xeitos)
  • Como usar a fórmula IF con datas (6 exemplos sinxelos)

3. Formatear a data e a hora actual coa función de formato de VBA

Ata agora, aprendemos a obter a data e a hora actual. Esta vez, imos ver como podemos mostrar a data e a hora no formato desexado.

3.1 Formatear a data actual

Primeiro, só formatearemos a data actual. .

Utilizaremos a función Formato de VBA para este fin. A sintaxe da función é:

=Format(Date,Format)

Polo tanto, para mostrar a data actual no formato dd/mm/aaaa , a liña de código será:

Data_Actual = Formato(Data,“dd/mm/aaaa”)

E o código VBA completo será:

Código VBA:

4750

Nota: Este código crea unha Macro chamada Formato_Data_e_Hora .

Saída:

Se executas este código, mostrará a data actual no formato desexado, dd/mm/aaaa , 11/01/2022 .

3.2 Formatear a data e a hora actual

Ti tamén pode usar a función Formato para dar formato á data actual e á hora actual xuntos.

Imos mostrar a data e a hora actual no formato dd/mm/aaaa hh:mm :ss am/pm .

A liña de código será:

Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm")

E o código VBA completo será:

Código VBA:

7763

Nota: Este código crea unha Macro chamado Formato_Data_e_Hora .

Saída:

Se executa este código, mostrará a data e a hora actual no formato desexado, dd/mm/aaaa hh:mm:ss am/pm , 11/01/2022 12:03:45 .

Ler máis: Como formatar a data con VBA en Excel

Resumo

  • O AGORA función da Aplicación Visual Basic devolve a data e a hora actual.
  • A función Data devolve a data actual.
  • O Formato A función mostra a data e a hora no formato que desexe.

Conclusión

Con estes métodos, pode obter e mostrar odata e hora actual nunha Macro en Excel. Tes algunha dúbida? Non dubides en preguntarnos.

Hugh West é un adestrador e analista de Excel altamente experimentado con máis de 10 anos de experiencia na industria. É Licenciado en Contabilidade e Finanzas e Máster en Administración de Empresas. Hugh ten unha paixón polo ensino e desenvolveu un enfoque docente único que é fácil de seguir e comprender. O seu coñecemento experto de Excel axudou a miles de estudantes e profesionais de todo o mundo a mellorar as súas habilidades e a destacar nas súas carreiras. A través do seu blog, Hugh comparte os seus coñecementos co mundo, ofrecendo titoriais de Excel gratuítos e formación en liña para axudar ás persoas e ás empresas a alcanzar todo o seu potencial.