Function 时间差(过去时间,当前时间) Dim a = ShanHai.GetUnixTime(过去时间) Dim b = ShanHai.GetUnixTime(当前时间) Dim c = b - a 时间差 = c End Function