SQL-Datum zur Verwendung im Code

Wenn Sie im VBA-Editor in SQL-Abfragen mit Datums-Werten hantieren, benötigen Sie eine Umformatierung des deutschen Datum-Wertes. Dies leistet folgende Funktion:

Public Function SQLDatum(Datum As Variant) As String

    If Not IsNull(Datum) Then
        SQLDatum = "#" & Month(Datum) & "/" & Day(Datum) & "/" & Year(Datum) & "#"
    Else
        SQLDatum = ""
    End If