[AccessD] Import Excel Dates into Access

Stuart, Oleg_123, Thank you.

Mark


-----Original Message-----
From: Stuart McLachlan [mailto:stuart at lexacorp.com.pg] 
Sent: Tuesday, October 14, 2003 7:46 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Import Excel Dates into Access


On 14 Oct 2003 at 18:34, Mitsules, Mark wrote:

> Thank you so much Stuart.  You are absolutely right.  Even a right 
> click 'filter by selection' will not result in matches for the same 
> date because of the time differences.  I've never used Int() with 
> dates before and could not find an example in MSDN.  Can you provide 
> an example syntax?
> 

Since date/times are actually stored as a double with the whole 
number represents the date and the fractional part represents the 
time, using Int() will truncate to just the date part.

For existing data:
Docmd.RunSQL "Update myTable Set MyDate = Int(MyDate)"

Importing a CSV into a table:
Dim rs as DAO.Recordset
DIm strA as string, strB as String,strC as String, strD as String Set rs =
CurrentDB.Openrecordset("MyTable")
Open "MyFile.CSV" for Input as #1
While Not EOF(1)
	Line Input #1, strA,StrB,StrC,strD
     rs.Addnew
     rs!MyNumber = Val(StrA) 
     rs!MyString = StrB
     rs!MyDateTime = Val(StrC)
     rs!MyDate = Int(Val(StrD))
     rs.Update
Wend
Close #1





 
-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System 
Support.



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com