Sommario
In questo articolo verrà mostrato come ottenere la data corrente in VBA Imparerete a visualizzare la data corrente, l'ora corrente e a formattare la data e l'ora nel formato desiderato.
Come ottenere la data corrente in VBA (vista rapida)
Scarica il quaderno di esercizi
Scaricate questo libro di esercizi per esercitarvi mentre leggete questo articolo.
Ottenere le date correnti in VBA.xlsm3 modi per ottenere la data corrente in VBA
Esploriamo i modi migliori per ottenere la data e l'ora corrente in un file Macro in VBA .
1. Ottenere la data corrente con la funzione Date di VBA
Prima di tutto, vediamo come ottenere la data corrente. È possibile ottenere la data corrente in VBA in modo abbastanza completo utilizzando il Funzione data di VBA .
La riga di codice sarà:
Current_Date=Date() Il codice completo per visualizzare la data corrente sarà:
⧭ Codice VBA:
Sub Get_Current_Date() Current_Date = Date MsgBox Current_Date End Sub Nota: Questo codice crea un file Macro chiamato Ottieni_Data_Corrente .
⧭ Uscita:
Eseguire questa macro e si otterrà un Casella di messaggio che visualizza la data corrente, 11-Gen-22 .
Per saperne di più: Come inserire la data corrente in Excel
2. Inserire la data e l'ora corrente con la funzione Now di VBA
È possibile utilizzare la funzione Ora funzione di VBA per ottenere la data e l'ora corrente.
La riga di codice sarà:
Current_Date_and_Time = Now() Pertanto, l'intero codice per visualizzare la data e l'ora correnti:
⧭ Codice VBA:
Sub Get_Current_Date_and_Time() Current_Date_and_Time = Now() MsgBox Current_Date_and_Time End Sub Nota: Questo codice crea un file Macro chiamato Ottieni_data_e_ora_corrente .
⧭ Uscita:
Eseguire questo Macro e si otterrà un Casella di messaggio che visualizza la data e l'ora corrente, 11-Gen-22 11:23:20 AM .
Per saperne di più: Funzioni Ora e Formato in Excel VBA
Letture simili
- Variabile data nei codici VBA (7 usi delle macro con esempi)
- Come utilizzare la scorciatoia per la data di Excel
- Calcolo della data di scadenza con la formula in Excel (7 modi)
- Come utilizzare la formula IF con le date (6 semplici esempi)
3. Formattare la data e l'ora corrente con la funzione Format di VBA
Finora abbiamo imparato a ottenere la data e l'ora corrente. Questa volta vediamo come visualizzare la data e l'ora nel formato desiderato.
3.1 Formato della data corrente
Per prima cosa, formatteremo solo la data corrente.
Utilizzeremo il Formato funzione di VBA a questo scopo. sintassi della funzione è:
=Formato(Data,Formato) Pertanto, per visualizzare la data corrente nel formato gg/mm/aaaa , la riga di codice sarà:
Current_Date = Format(Date, "dd/mm/yyyy")
E il completo Codice VBA sarà:
⧭ Codice VBA:
Sub Format_Date_and_Time() Current_Date = Format(Date, "dd/mm/yyyy") MsgBox Current_Date End Sub Nota: Questo codice crea un file Macro chiamato Formato_data_e_ora .
⧭ Uscita:
Se si esegue questo codice, verrà mostrata la data corrente nel formato desiderato, gg/mm/aaaa , 11/01/2022 .
3.2 Formattazione della data e dell'ora corrente
È inoltre possibile utilizzare il comando Formato per formattare insieme la data e l'ora corrente.
Visualizziamo la data e l'ora correnti nel formato gg/mm/aaaa hh:mm:ss am/pm .
La riga di codice sarà:
Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm") E il completo Codice VBA sarà:
⧭ Codice VBA:
Sub Format_Date_and_Time() Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm") MsgBox Current_Date_and_Time End Sub Nota: Questo codice crea un file Macro chiamato Formato_data_e_ora .
⧭ Uscita:
Se si esegue questo codice, verranno mostrate la data e l'ora correnti nel formato desiderato, gg/mm/aaaa hh:mm:ss am/pm , 11/01/2022 12:03:45 .
Per saperne di più: Come formattare la data con VBA in Excel
Sintesi
- Il ORA funzione di Applicazione Visual Basic restituisce la data e l'ora correnti.
- Il Data restituisce la data corrente.
- Il Formato visualizza la data e l'ora nel formato desiderato.
Conclusione
Utilizzando questi metodi, è possibile ottenere e visualizzare la data e l'ora corrente in un file di tipo Macro Avete domande? Non esitate a chiedercele.
