VB中怎么计算两个日期间的小时数??

softwareperson 2004-07-25 11:21:03
比如:
2004-07-16 5时到2004-08-20 23时间的小时数??
...全文
234 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
helanshan 2004-07-25
  • 打赏
  • 举报
回复
Private Sub Form_Click()
Dim d1 As Date
Dim d2 As Date

d1 = "2004-07-16 05:00:00"
d2 = "2004-08-20 23:00:00"

Print (d2 - d1) * 24

End Sub

改了一点。。。^-^
TechnoFantasy 2004-07-25
  • 打赏
  • 举报
回复
Dim d1 As Date
Dim d2 As Date

d1 = "2004-07-16 05:00:00"
d2 = "2004-08-20 23:00:00"

Debug.Print (d2 - d1) / (1 / 24)
yas 2004-07-25
  • 打赏
  • 举报
回复
To TechnoFantasy(冰儿马甲www.applevb.com) :

为什么你开始不用datediff?

五星上将不用肯定有道理,讲讲我们大家见识见识
yas 2004-07-25
  • 打赏
  • 举报
回复
datediff("h",date1,date2)
TechnoFantasy 2004-07-25
  • 打赏
  • 举报
回复
最终你的计算还是要转换到Date类型上面来的。就像楼上给的答案一样。
northwolves 2004-07-25
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
Dim d1 As String, d2 As String
d1 = "2004-07-16 05:00:00"
d2 = "2004-08-20 23:00:00"
MsgBox DateDiff("h", CDate(d1), CDate(d2))
End Sub
Mars.CN 2004-07-25
  • 打赏
  • 举报
回复
d1 = "2004-07-16 05:00:00"
d2 = "2004-08-20 23:00:00"
Print (d2 - d1) * 24
问什么非要定义成DATE型的??
有没有其他的??

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧