如何将DB2日期时间字符串转换为Excel日期

Question

我将定期从DB / 2数据库中提取日期和时间戳，其格式如下：

2002-01-15-00.00.00.000000
2008-01-05-12.36.05.190000
9999-12-31-24.00.00.000000

有没有比用子字符串分解更简单的方法将其转换为Excel日期格式？

DB2date = DateValue(Left(a, 4) + "/" + Mid(a, 6, 2) + "/" + Mid(a, 9, 2))

谢谢你的帮助！

Answer 1

目前尚不清楚是谈论公式函数还是VBA函数。

公式函数

不要使用DateValue函数，该函数需要一个字符串。 使用Date函数，该函数需要数字Year，Month，Day：

=DATE(INT(LEFT(A1,4)),INT(MID(A1,6,2)),INT(MID(A1,9,2)))

假设date-as-string在A1中。

与上述类似的计算，只需使用DateSerial函数即可：

dt= DateSerial(Int(Left$(dt$, 4), Int(Mid$(dt$, 6, 2)), Int(Mid$(dt$, 9, 2)))

Answer 2

我相信，如果您真的很在意，可以使用Regex来煮些东西。 不过，这不会是“更好”的，可能更糟。

如果您会原谅一些C＃（多年来我没有接触过VB，所以我不知道函数调用了），您也可以这样做：

DB2string = "2002-01-15-00.00.00.000000";
DB2date = DateValue(DB2string.SubString(0, 10).Replace('-', '/'));

但同样，您并没有真正获得任何收益。 您能否举一个例子说明当前代码将在何处中断？

Answer 3

在VBA中， dateValue()可以将字符串的第一部分转换为日期：

? dateValue("2002-01-15")

    15/01/2002

因此，正确的方法就是为您

? dateValue(left("2002-01-15-00.00.00.000000",10))

只要DB2始终为您提供“ YYYY-MM-DD”日期，这将始终为您提供正确的答案。 结果的格式（dd / mm / yy，mm-ddd-yyyy等）将取决于计算机的本地设置/单元的特定设置。

如果要提取字符串的“时间”部分，则此timeValue()函数将最终完成任务。

Answer 4

如果要包括时间信息，您还有更多事情要做； DateValue丢弃它。
TimeValue可以将时间部分评估为秒，因此您可以添加它们：

= DateValue(Mid(a, 1, 10)) + TimeValue(Mid(a, 12, 8))

但是您的样本数据提出了另一个问题：它同时具有时间值“ 00.00.00”和“ 24.00.00”。
第二个函数阻塞了TimeValue函数，因此您将需要为特殊情况编写代码。