Office中国论坛/Access中国论坛

标题: 时间问题 [打印本页]

作者: zyj_1978 时间: 2002-11-1 22:38
标题: 时间问题
请指点一下，如果我要计算2000到2010年有多少天（或小时或秒）用vba怎么写?

[em24]

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

作者: Trynew 时间: 2002-11-1 23:03
CDATE("2010-01-01")-CDATE("2000-01-01")
结果为：3653天，3653*24 小时，3653*24*60*60秒

作者: 竹笛 时间: 2002-11-1 23:08
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编辑过]

作者: zyj_1978 时间: 2002-11-1 23:21
非常感谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)