"Henrik Astrup" <storfanger@my-deja.com> wrote in message
news:h9H27.210$XM.13847@news.get2net.dk...
>
> Hvordan får jeg lagt en dato ind i en access database? Følgende kode
> indsætter godtnok en dato i datofeltet, men det er en dato i 1895, som
ikke
> ser ud til at have noget at gøre med det oprindelige input. Hvad skal jeg
> skrive for at indsætte en dato i et datofelt i en access database? På
> forhånd tak!
>
Jeg vil råde dig til at glemme det særlige datoformat. Hvad nu hvis datoen
på databaseservern bliver ændret? Det jeg har gjort er at jeg laver datoen
om til et tal i formatet yyyymmdd så gemmer jeg det i databasen hvor feltet
så er tal.
For at lave det tal kan du bruge nedenstående funktioner
'**********************************
'* Dato til tal
'**********************************
Function Date2SQL(sDate)
Date2SQL = Year(sDate) & Right("0" & Month(sDate), 2) & Right("0" &
Day(sDate), 2)
End Function
'**********************************
'* Tal til dato
'**********************************
Function SQL2Date(sDate)
SQL2Date = Right(sDate, 2) & "-" & Mid(sDate, 5, 2) & " " & left(sDate,
4)
End Function
--
Niels Henriksen
Systemudvikler
Netopcom Danmark ApS
www.netopcomdanmark.dk