Vba: mm/dd/jjjj gebruiken als datumformaat

U kunt de eigenschap NumberFormat in VBA gebruiken om datumwaarden op te maken met de notatie mm/dd/jjjj .

Hier is een gebruikelijke manier om dit in de praktijk te doen:

 SubFormatDates ()

Dim i As Integer

For i = 2 To 11
    Range(" A " & i).NumberFormat = " mm/dd/yyyy "
Next i

End Sub

Deze specifieke macro zal elk van de datums in het bereik A2:A11 opmaken in de notatie mm/dd/jjjj .

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

Voorbeeld: hoe mm/dd/jjjj als datumformaat in VBA te gebruiken

Stel dat we de volgende lijst met datums in Excel hebben:

Stel dat we elk van de datums in kolom A willen opmaken met de notatie mm/dd/jjjj .

We kunnen hiervoor de volgende macro maken:

 SubFormatDates ()

Dim i As Integer

For i = 2 To 11
    Range(" A " & i).NumberFormat = " mm/dd/yyyy "
Next i

End Sub

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

Merk op dat elk van de datums in kolom A nu het formaat mm/dd/jjjj gebruikt.

Houd er rekening mee dat door mm en dd in het formaat te gebruiken, we forceren dat alle maanden en dagen met twee cijfers worden weergegeven.

De datum 3 maart 2023 wordt bijvoorbeeld weergegeven als 01/03/2023 .

Als u wilt, kunt u in plaats daarvan m/d/jjjj gebruiken als notatie om één cijfer weer te geven als de dag of maand slechts één cijfer heeft:

 SubFormatDates ()

Dim i As Integer

For i = 2 To 11
    Range(" A " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

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

Datums zijn nu zo opgemaakt dat alleen het minimumaantal cijfers wordt weergegeven dat nodig is om de dagen en maanden nauwkeurig weer te geven.

De datum 3 maart 2023 wordt bijvoorbeeld weergegeven als 1-3-2023 .

Opmerking : u kunt hier de volledige documentatie voor de eigenschap NumberFormat 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 string naar datum te converteren in VBA
Hoe dagen tussen twee datums in VBA te berekenen