VB。NET 将日期转换为数字

Question

我在 VB 中有这段代码。网

dim date_e As DateTime
date_e = New DateTime(CLng(Convert.ToDouble("635434240520170000")))

结果是：

12.08.2014 07:07:32

现在我的问题是如何反转该编码以从我自己输入的特定日期和时间获取数字：让我们说。

22.09.2014 07:07:32

谢谢！

Answer 1

采用 a 的DateTime构造函数是Long自公历 0001 年 1 月 1 日 00:00:00.000 以来的刻度。

您只需要先解析字符串Date，然后就可以使用它的Ticks属性：

Dim dt = Date.Parse("22.09.2014 07:07:32") ' presumes that this is the correct format
Dim ticks As Long = dt.Ticks

如果输入日期字符串的格式与当前区域性不同，您可以使用Date.Parse正确的区域性：

dt = Date.Parse("22.09.2014 07:07:32", New CultureInfo("de-DE"))

或者 - 如果您不了解文化而只了解格式 - Date.ParseExact：

dt = Date.ParseExact("22.09.2014 07:07:32", "dd.MM.yyyy HH:mm:ss", CultureInfo.InvariantCulture)