没有办法直接计算。增加一个时间戳列,把时间转换为时间戳,然后根据辅助列计算平均值,再转换回时间值,转换方法参考:
for each r as row in tables("表A").rows
Dim st As New Date(1970,1,1,8,0,0)
r("时间戳") = (cdate(r("时间")) - st).TotalSeconds()
end if
时间戳转换为时间参考;
Dim st As New Date(1970, 1, 1, 8, 0, 0)
Dim sjc As Long = 1663202744
Dim d As Date = st.AddSeconds(sjc)
Output.Show(d)