VB高手请进..关于VB时间差问题!

来源：百度知道 编辑：UC知道 时间：2024/05/17 01:44:19
我想获取年,月,日,时和分然后在另一个Textbox里显示..具体如下:
txtRentTime:开始租船时间
txtReturnTime:还船时间
txtTotalTime:总共游玩时间
我想在txtRentTime显示开始时间...txtReturnTime显示结束时间
txtTotalTime显示时间差

小弟请各位大哥大姐帮我实现一下具体的代码吧...哪怕算法也好..
非常感谢...!!成功后我会再加分!

Dim h(2), m(2)
Private Sub Command1_Click()
Text1.Text = Now()
h(0) = Hour(Now)
m(0) = Minute(Now)
End Sub

Private Sub Command2_Click()
Text2.Text = Now()
h(1) = Hour(Now)
m(1) = Minute(Now)
End Sub

Private Sub Command3_Click()
Text3.Text = h(1) - h(0) & " : " & m(1) - m(0)
End Sub
这样就好了，我这里把借船设在一天以内（不会借好几天把，是的话补充我改）。显示借了几小时几分应该够用了

显示开始时间
做个FORM 3个TEXT
txtRentTime 简称TEXT1
txtReturnTime TEXT2
txtTotalTime TEXT3
做3个 按钮
开始时间 结束时间 用的时间
cmd1 点击后
Then Text1.text=NOW()
cmd2 点击后
Then Text2.text=NOW()
cmd3 点击后 Len(text1.text)
然后抽取自己定制的时间
得到的结果 然后用个算法
本人技术原因，这个是我的猜想。。。。。。
细节地方我也不会，，，，，