VB时间差距

来源：百度知道 编辑：UC知道 时间：2024/05/31 14:22:50
公司运行开始时间 2008.01.01 , 13:00:00

到现在,

要显示:公司已经运营 XX天,XX时XX分XX秒了

在VB里怎么显示?

搞定收工！

Private Sub Command1_Click()
Dim da As Date, sj, t%, h%, m%, s%
da = "2008-1-1 13:00:00"
sj = Now - da
t = Int(sj): sj = sj - Int(sj): sj = sj * 24
h = Int(sj): sj = sj - Int(sj): sj = sj * 60
m = Int(sj): sj = sj - Int(sj): sj = sj * 60
s = Int(sj)

MsgBox "公司已经运营" + Str(t) + "天," + Str(h) + "时" + Str(m) + "分" + Str(s) + "秒了", vbOKOnly, ""

End Sub

可以使用DateDiff函数,详细函数说明参考VBMSDN.