时间问题

zyj_1978

请指点一下，如果我要计算2000到2010年有多少天（或小时或秒）用vba怎么写?

[em24]

[此贴子已经被作者于2002-11-1 14:38:01编辑过]

竹笛

Private Sub 命令0_Click()
Dim Days, Times, Seconds As Single
Days = Val(#1/1/2010# - #1/1/2000#)'天数
Times = Days * 24'小时数
Seconds = Times * 60'秒数

MsgBox "2000年至2010年共" + vbNewLine & Days & "天" + vbNewLine & Times & "小时" + vbNewLine & Seconds & "秒"

End Sub

[此贴子已经被竹笛于2002-11-1 15:08:24编辑过]

Trynew

CDATE("2010-01-01")-CDATE("2000-01-01")
结果为：3653天 ，3653*24 小时，3653*24*60*60秒

zyj_1978

非常感谢！