Access VBA SQL Datum

Access beherscht viele Funktionen um eine Datum zu Formatieren aber leider die dieses direkt in ein Format umwandelt welches für andere Datenbanken, wie etwa den MS SQL Server, DB2, Oracle oder PostgreSQL benötigt wird. Die folgende Funktion wandelt ein Datum in einen SQL Datumstring um.

Public Function CDateSQL(vardatum As Variant) As String

    If IsDate(vardatum) Then

        CDateSQL = Format(CDate(vardatum), "'yyyy-mm-dd'")

    End If

End Function

Aufgerufen werden kann die Funktion beispielsweise mit:

CDateSQL("10.02.1995")