VB.Net：导入时使用与Excel工作表不同的日期格式

Question

从Excel工作表导入到MSAccess数据库。 当我从Excel工作表中读取日期列时，要将其转换为已知的日期格式。 我得到两种Excel格式，一种具有dd-mm-yyyy格式，另一种具有mm / dd / yyyy。

当我导入日期为2015年9月14日的Excel工作表时，出现错误消息“未将字符串重新识别为有效日期时间”。

timesheetDate = xlWorkSheet.Cells（1，Column）.value tempDate = Convert.ToDateTime（timesheetDate）

如何将日期的两种不同格式转换为一种格式？

Answer 1

通常，在没有问题的情况下转换或移动数据时，我会使用两个属性：“ ToOADate”和“ FromOADate”。 例如：如果您想将日期从Excel读取到表单，则将Excel中的日期单元格转换为数字。 形式：将数字转换为日期。此简短脚本可以帮助您：

Dim DateAsNumber As Integer
DateAsNumber = Int(Now.ToOADate)
MsgBox(DateAsNumber) 'if now is 13-Apr-2016 will you get 42473
Dim MyDate As Date
MyDate = DateTime.FromOADate(DateAsNumber)
MsgBox(MyDate) 'this will convert 42473 to 13/4/2016 or 4/13/2016 depending on your system date format.