求助一个很菜的vb问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 13:51:02
我为我们的租车行设计个管理系统,希望的是在点开始按纽后自动记时,点结束后停止记时,记时器归零,并在label中显示价格,1元/时,不足一小时按一小时收费,当在点开始时记时器重新从0开始记时,有哪位大虾能帮帮我,请附上代码,谢谢

'下面的程序是很简单的，但能够运行。只给你一个思路，楼主可以自己完善。

'放置command1、command2、text1、text2和timer1共五个控件，调整好大小的位置，本程序中不再对它们进行调整。代码如下：
Dim T1 As Date, T2 As Date, T3 As Date, T4 As Integer, F As Integer
Private Sub Command1_Click()
T1 = Time
Text1.Text = "开始时间：" + CStr(T1)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
If Command2.Caption = "结束" Then
Timer1.Enabled = False
T2 = Time
T3 = T2 - T1
Text2.Text = "结束时间：" + CStr(Time)
Text3.Text = "使用时间：" + CStr(T3)
T4 = Val(Left(T3, Len(T3) - 6))
If Val(Left(Right(T3, 5), 2)) > 0 Or Val(Right(T3, 2)) > 0 Then
T4 = T4 + 1
End If
Text4.Text = "费用合计：" + CStr(T4) + "元"
Command2.Caption = "确定&quo