Come utilizzare la funzione dateserial in vba (con esempio)


È possibile utilizzare la funzione DateSerial in VBA per restituire una data per un giorno, mese e anno specifici.

Ecco un modo comune per utilizzare questa funzione nella pratica:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Questa particolare macro restituirà valori di data nell’intervallo D2:D13 utilizzando i valori dell’anno nella colonna C, i valori del mese nella colonna B e i valori del giorno nella colonna A.

L’esempio seguente mostra come utilizzare nella pratica la funzione DateSerial .

Esempio: come utilizzare la funzione DateSerial in VBA

Supponiamo di avere le seguenti colonne in Excel che visualizzano il giorno, il mese e l’anno per date diverse:

Supponiamo di voler visualizzare i valori della data nella colonna D, utilizzando i valori di giorno, mese e anno in ciascuna riga.

Per fare ciò possiamo creare la seguente macro:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

La colonna D mostra il valore della data risultante dall’utilizzo dei valori di giorno, mese e anno rispettivamente delle colonne A, B e C.

Nota : qui è possibile trovare la documentazione completa per la funzione VBA DateSerial .

Risorse addizionali

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

Come confrontare le date in VBA
Come convertire la data in numero della settimana in VBA
Come calcolare i giorni tra due date in VBA

Aggiungi un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *