Come utilizzare la funzione datevalue in vba (con esempio)

È possibile utilizzare la funzione DateValue in VBA per restituire il valore della data da una determinata stringa.

Ecco un modo comune per utilizzare questa funzione nella pratica:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Questa particolare macro estrarrà il valore della data dalle date e dalle ore nell’intervallo A2:A7 e restituirà quel valore della data nell’intervallo corrispondente di B2:B7 .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come utilizzare la funzione DateValue in VBA

Supponiamo di avere la seguente colonna data/ora in Excel:

Supponiamo di voler estrarre la data da ogni datetime nella colonna A e visualizzarla nella colonna B.

Per fare ciò possiamo creare la seguente macro:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

La colonna B visualizza il valore della data per ogni data/ora nella colonna A.

Per esempio:

• La funzione DateValue restituisce il 01/01/2023 dal 01/01/2023 10:15:34
• La funzione DateValue restituisce il 03/01/2023 dal 03/01/2023 12:34:18
• La funzione DateValue restituisce il 05/01/2023 dal 05/01/2023 8:23:00

E così via.

Nota : qui è possibile trovare la documentazione completa della funzione DateValue in VBA.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come confrontare le date
VBA: come ottenere il nome del mese dalla data
VBA: numero maggiore della data