I have a query which inserts dates. I receive the dates in this format: 20040901 - yyyymmdd.
I send this date to a query "buildDate" which does this:
Function buildDate(ByVal oldString As String) As Variant
Dim d, m, y As Integer
d = Mid(oldString, 7, 2)
m = Mid(oldString, 5, 2)
y = Left(oldString, 4)
buildDate = DateSerial(y, m, d)
The result works well, however when i insert the result from buildDate into a table, it inserts it as u.s dates - 09/01/04
How do I fix this???????