Jag ska göra insert av datum i accesdatabas, datatypen i databasen är datum/tid och jag vill ha med år, månad, dag, timme, minut, och sekund. Tiden som ska läggas in hämtas fån en textbox i ett formulär. Jag vill att man ska ange det i en följd i fromularet ex. 20040617100500. Som det är nu så får jag bara med år, månad och dag. Det är den variabeln som heter slut det gäller??? Kan någon hjälpa mej??

dim Kurs, Datumet, Ort, Varde, Dagar, Slut, id


Kurs=session("akursnamn")
Ort=session("aort")
Varde=session("avarde")
Dagar=session("adagar")
Id=session("akurs")


Datumet = session("adatumet")
Datumet = Replace(Datumet,"-"," ")
Trim(Datumet)
ar = Left(Datumet,4)
man = Mid(Datumet,5,2)
dag = Right(Datumet,2)
Datumet = ar & "-" & man & "-" & dag


Slut = session("aslut")
Slut = Replace(Slut,"-"," ")
Trim(Slut)
ar = Left(Slut,4)
man = Mid(Slut,5,2)
dag = Right(Slut,2)
Slut = ar & "-" & man & "-" & dag


SQL="INSERT INTO Auktion (Kursdatum, Kursnamn, Kurslangd, Kursort, Kursid, Varde, Slut)"
SQL=SQL & " Values( #"& datumet &"#, '" & Kurs & "','" & dagar & "','" & ort & "','" & id & "','" & varde & "',#"& datumet &"#)"

Denna funktion fixar till datum med eller utan skiljetecken:
<code>
Function FixDate(Value)
Dim RegExp
Set RegExp = New RegExp
RegExp.Pattern = "^(\d{2}|\d{4})-?(\d{2})-?(\d{2})\s?(\d{2})\:?(\d{2})\:?(\d{2})$"
FixDate = RegExp.Replace(Value, "$1-$2-$3 $4:$5:$6")
End Function
</code>