Een tijdstempel invoegen met vba (met voorbeeld)

U kunt de volgende basissyntaxis in VBA gebruiken om een tijdstempel in een bepaalde cel in Excel in te voegen:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Deze specifieke macro voegt de huidige tijd in het formaat mm/dd/jjjj uu:mm:ss in cel A1 in.

Opmerking : de Nu- functie van VBA retourneert de huidige datum en tijd op basis van de systeemdatum en -tijd van uw computer.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: hoe u een tijdstempel invoegt met VBA

Stel dat we de volgende macro maken om de huidige datum en tijd als tijdstempel in cel A1 van ons huidige blad in Excel in te voegen:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Cel A1 geeft nu de huidige datum en tijd weer waarop deze macro is uitgevoerd.

Voor dit specifieke voorbeeld heeft de datetime de notatie mm/dd/jjjj hh:mm:ss .

Houd er rekening mee dat we ook een ander formaat kunnen opgeven dat u wilt gebruiken.

We kunnen bijvoorbeeld de volgende macro maken om de huidige tijd weer te geven in de notatie dd-mm-jjjj uu:mm:ss in cel B1 :

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

De cellen A1 en B1 geven nu beide de huidige datum en tijd in verschillende notaties weer.

Let op : U kunt hier de volledige documentatie van de Format- functie in VBA vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Datums vergelijken in VBA
Hoe tijd te formatteren in VBA
Hoe het tijdsverschil in VBA te berekenen