Questo tutorial dimostrerà come ottenere la data odierna in VBA.
Esistono un paio di modi per ottenere la data odierna nel codice VBA, ovvero utilizzando il VBA Data() funzione o il VBA Ora() funzioni.
Data() funzione
Il Data() La funzione ci consente di assegnare la data odierna a una variabile e quindi visualizzare la data nella finestra immediata nell'editor VBE per vedere la data odierna.
| 123 | Dim dtToday as DatedtToday = Data()Debug.Print dtToday |
In alternativa, possiamo visualizzare la data in una finestra di messaggio.
| 12345 | Data del test secondarioDim dtToday as DatedtToday = Data()Msgbox "La data odierna è " & dtTodayFine sottotitolo |
Funzione Now()
Il Ora() La funzione funziona allo stesso modo della funzione data, ma include l'ora.
| 12345 | Data di prova secondaria()Dim dtOggi come datadtOggi = Adesso()MsgBox "La data odierna è " & dtTodayFine sottotitolo |
Formattazione delle date con VBA
In entrambi i Data() e il Ora() funzioni, la data è formattata in uno stile predefinito come determinato dalle impostazioni sul nostro PC. Possiamo personalizzare questa formattazione usando VBA Formato funzione. Poiché la funzione format restituirà una stringa, dobbiamo dichiarare a CORDA variabile piuttosto che a DATA variabile.
| 12345 | Data di prova secondaria()Dim dtToday As StringdtToday = Formato (Data, "gg mmmm aaaa")MsgBox "La data odierna è " & dtTodayFine sottotitolo |
Possiamo anche formattare il Ora() funzione per includere la porzione di tempo in un formato personalizzato.
| 12345 | Sub FormatNow()Dim dtToday As StringdtToday = Format(Now(), "dd mmmm yy hh:mm:ss am/pm")MsgBox dtTodayFine sottotitolo |
Confrontando 2 date con VBA
Possiamo anche utilizzare la funzione Data per confrontare la data odierna con una data diversa: potremmo voler calcolare quanti giorni mancano all'evento! Possiamo farlo usando il VBA DataDiff() funzione che restituirà un numero. Possiamo quindi dichiarare anNUMERO INTERO variabile in cui memorizzare il valore restituito.
| 123456789 | Sub TestDateDiff()Dim dtOggi come dataDim dtSomeDay As DateDim iDays As IntegerdtToday = DatadtSomeDay = "05/06/2021"iDays = DateDiff("d", dtToday, dtSomeDay)MsgBox "Ci sono " & iDays & " giorni tra le 2 date"Fine sottotitolo |
Poiché le date sono memorizzate come numeri, potremmo anche sottrarre la seconda data dalla prima per ottenere la stessa risposta.
| 1 | iDays = dtToday - dtSomeDay |
