أدخل التاريخ والوقت في الوصول

<٪

FunctionAccessDateTime (DateAndTime)

Dimmyday

Dimmymonth

Dimmyyear

myday = day (dateAndTime)

iflen (myday) = 1thenmyday = "0" & ​​myday

mymonth = شهر (dateandtime)

iflen (mymonth) = 1thenmymonth = "0" & ​​mymonth

myyear = سنة (dateandtime)

AccessDateTime = myyear & "-" & mymonth & "-" & myday & "" & time ()

الوظيفية

DimConnection

Dimsql ، sconnstring

sql = "insertintotbldate (ddate) قيم (#" & AccessDateTime (now ()) & "#)"

sconnstring = "Provider = microsoft.jet.oledb.4.0 ؛" & _

"datasource =" & server.mappath ("" datedb.mdb ")

setConnection = server.createBject ("adodb.connection")

connection.Open (sconnstring)

connection.execute (SQL)

connection.close

setConnection = لا شيء

٪>