Delphi中是不是有计算时间间隔的函数，类似VB中的DateDiff

Posted 2023-05-16

参考技术A delphi中有大量自己的时间函数（http://www.jb51.net/article/52287.htm）。

vb 时间戳转换成时间

现在有一个整数，它是从1970.1.1到现在某个时间的间隔秒数。怎么把这个秒数转化成年月日的形式？

VB可使用DateAdd 函数来获取加上了一段时间间隔后的日期和时间数据。

DateAdd 函数，返回包含一个日期的 Variant
(Date)，这一日期还加上了一段时间间隔。





代码实例：

Private Sub Command1_Click()

    Dim D As Date

    Dim Sj As Long

    Sj = InputBox("输入秒数：", Sj)

    D = DateAdd("s", Sj, #1/1/1970#)

    Debug.Print D

End Sub

参考技术A 假定变量x储存的就是时间戳：
d = DateAdd("s", x, #1/1/1970#)
则d就是转换后的时间值本回答被提问者采纳