Formatering af dato
Jeg bruger en Dansk Windows XP, som af hensyn til en anden applikation er sat op til at køre med Engelsk i Internationale og Sproglige indstillinger.Problemet er når jeg skal hente data fra mine tabeller vha. SQL.
Eksempel på data:
PalleKlLosDato
11/11/2004
11/11/2004
11/11/2004
12/11/2004
15/11/2004
15/11/2004
15/11/2004
15/11/2004
16/11/2004
17/11/2004
Min SQL henter datoerne fra en anden tabel og udvælger så data fra tabellen på baggrund af en dato:
SQLString3 = "SELECT DISTINCT PalleKlLosDato, PalleKlOrdrerNr FROM PalleKlade"
Set rst2 = CurrentDb.OpenRecordset(SQLString3, dbOpenDynaset, dbSeeChanges)
While Not rst2.EOF
SQLString2 = "SELECT Sum(PalleKlade.PalleKlVaegtPrEnh) AS SumOfPalleKlVaegtPrEnh, Sum(PalleKlade.PalleKlAntalEnh) AS SumOfPalleKlAntalEnh, PalleKlade.PalleKlLosDato, Partiklade.PartiKlNr, Partiklade.PartiKlOrdrerNr FROM PalleKlade RIGHT JOIN Partiklade ON PalleKlade.PalleKlPartiNr = Partiklade.PartiKlNr GROUP BY PalleKlade.PalleKlLosDato, Partiklade.PartiKlNr, Partiklade.PartiKlOrdrerNr HAVING Partiklade.PartiKlOrdrerNr='" & Ordrenummer & "' AND PalleKlade.PalleKlLosDato=#" & rst2("PalleKlLosDato") & "# ORDER BY Partiklade.PartiKlNr"
Set rst = CurrentDb.OpenRecordset(SQLString2, dbOpenDynaset, dbSeeChanges)
Debug.Print rst("PalleKlLosDato") & ": " & rst("SumOfPalleKlVaegtPrEnh")
rst2.MoveNext
Wend
I dette tilfælde får jeg IKKE data for d. 12/11/2004, for den dato der sammenlignes med er 11/12/2004!
Hvordan formaterer jeg SQL strengen, så jeg altid får datoen i det "korrekte" format?
dd/mm/yyyy
