关于时间的计算问题

Question

to cornerxu(面)
    这样吧。我有两个时间，一个是12：00 另一个是13：00
    你说出时间差，我给1000分。

Answer 1

to cornerxu(面)
    这样吧。我有两个时间，一个是12：00 另一个是13：00
    你说出时间差，我给1000分。哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

Answer 2

   我觉得可以这样，如果程序是一直运行的话，那么就用一个变量存储吧        过1分钟激发一次
        不过太蠢      其实，有着方面的api的郭一下我贴出来

Answer 3

Private Function SecondToDate(Minutes As Long) As String
    a = CDate((Minutes Mod 1440) / 1440)
    b = Hour(a)
    c = Minute(a)
    d = Second(a)
    SecondToDate = Str(Seconds \ 1440) + " " + Str(b) + ":" + Str(c) + ":" + Str(d)
End Function