'Aufruf der Funktion:
SQDatVon = SQLDatum(Wert)
 
Function SQLDatum(Wert As Date) As String
On Error GoTo Fehler
 
'Wandelt ein Datum in ein SQL - Datum um
' z. B. 01.02.03 -----> #02/01/2003#
 
SQLDatum = "#" & Month(Wert) & "/" & Day(Wert) & "/" & Year(Wert) & "#"
 
Exit Function
Fehler:
MsgBox Err.Discription
 
End Function
 
 
Folgender Funktion wird ein Textstring übergeben:
 
Public Function SQLDatum(OrgDatum As String) As String
   Dim day As String
   Dim month As String
   Dim year As String
   day = Left(OrgDatum, 2)
   month = Mid(OrgDatum, 4, 2)
   year = Right(OrgDatum, 4)
   SQLDatum = "#" & month & "-" & day & "-" & year & "#"
End Function