Formatieren von Datumsangaben als US-amerikanische Datumsangaben unabhängig von den regionalen Einstellungen

Wenn Sie Visual Basic for Applications (VBA) verwenden, um Datumsangaben in eine SQL-Zeichenfolge zu verketten, müssen Sie ein us-amerikanisches Standarddatumsformat verwenden, unabhängig von der Region, die Sie im Tool Regionale Einstellungen in Systemsteuerung festgelegt haben. Dieses Thema umfasst eine benutzerdefinierte Funktion, mit der jedes Datum in das US-Datumsformat konvertiert werden kann.

Function MakeUSDate(DateIn As Variant) As String 
 
    ' Do nothing if the value is not a date. 
    If Not IsDate(DateIn) Then Exit Function 

    ' Format the date value as a U.S. date formatted string expression.
    MakeUSDate = "#" & Month(DateIn) & "/" & Day(DateIn) & "/" & Year(DateIn) & "#"

End Function

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.