比较来自mysql的两个时间戳

Question

我有两个从 mysql 检索到的日期时间变量。 一个等于'now()'，另一个代表最后一次更改行。

我需要比较这两个日期时间值来获得两者之间的差异。

这就是我正在尝试的（我从 Mysql 中读取的内容是由定制的 Web api 处理的）...

 'get the current time
 Dim nowtime As DateTime = readsql("now()", "hosts", "")
    Console.WriteLine("NOW IS : " & nowtime)

    'read in all the rows
    Dim hosts() As String = readsql("hostname", "hosts", "chk_ping=1").ToString.Split("|")

    For Each host As String In hosts
        If Not host.Contains("No results found") Then
            Dim thishostip As String = readsql("IP", "hosts", "hostname='" & host & "'")
            Dim thishostlastpoll As DateTime = readsql("last_poll", "hosts", "hostname='" & host & "'")

            If thishostip.Contains("No results found") Then Exit For
            Console.WriteLine("HOST TIME IS:"  & thishostlastpoll.ToString)

            Dim timedifference As Integer = DateTime.Compare(nowtime, thishostlastpoll)
            Console.WriteLine("Time diff for " & host & " is : " & timedifference)


        End If

    Next 

我的日期时间值是这样进来的......

 18/01/2016 10:53:00
 18/01/2016 10:52:52

并且不会抛出任何错误/异常，但无论差异如何，'timedifference' 永远只有 1。

我怀疑它与日期时间的格式有关，这不是 VB 想要的，但我找不到任何可以将 mysql 转换为 vb 日期时间的东西，反之亦然。

任何方向都会被应用！提前致谢！

Answer 1

I suspect its something to do with the format of the datetime not being what VB wants, but I cant find anything for converting mysql to vb datetimes, just the other way round.

您可能对 1 或 2 件事感到困惑。

首先，日期没有格式。格式是计算机（或您编写的计算机代码）向用户显示日期的方式。网络（不是 VB 本身）DateTime 是一个值，表示存储为一个非常大的数字的时间点。由于635886720000000000（今天的日期）对我们大多数人来说意义不大，所以DateTime 类型以传统格式表示它。

MySql 数据提供者对象完全能够将数据从 Net DateTime 值来回转换，但是 MySql 需要根据列定义来存储它。

真正的问题可能在这里：

Dim timedifference As Integer = DateTime.Compare(nowtime, thishostlastpoll)

鉴于变量名称和显示方式，您可能会对DateTime.Compare 的作用感到困惑。来自MSDN：

比较两个 DateTime 实例并返回一个整数，指示第一个实例是早于、相同还是晚于第二个实例。

给定 2 个 MySql 列，定义为 TIMESTAMP(3) 并读入 NET DateTime vars：

Console.WriteLine("A is {0}", dtA)
Console.WriteLine("B is {0}", dtB)
Console.Write("Compare is {0}, therefore ", DateTime.Compare(dtA, dtB))

Select Case DateTime.Compare(dtA, dtB)
    Case Is < 0         ' ie -1
        Console.WriteLine("dtA is earlier")
    Case Is > 0
        Console.WriteLine("dtB is earlier")
    Case 0
        Console.WriteLine("dtA and dtB are exactly equal")
End Select

结果：

A 是 2016 年 1 月 18 日上午 8:39:51
B 是 2016 年 1 月 18 日上午 8:40:11
比较是 -1 因此，dtA 更早

DateTime.Compare 可能有点令人困惑的是，结果表示 较早/较小 值，而大多数其他 Compare 方法表示较大。

Answer 2

而是尝试减去两个日期时间值，如下所示，这将返回一个TimeStamp 值。顺便说一句，您当前的日期时间格式是dd/mm/yyyy，我认为应该是mm/dd/yyyy

Dim timedifference As TimeStamp = nowtime - thishostlastpoll