时间计算器用VB写个计算（加减）时间软件.要求如下：1：lable1(开始时间)label2(结事时间)text1(开始时间（时）)label3(:)text2(开始时间（分）)text3(结束时间（时）)label4(:)text5(结束时间（分）)label5(显示总计时间)label6(显示总金额)command1(计算)2：计算精确到分钟!3：计算时间 比如：11点55分到18点10分中间用了多少小时多少分然后然后再乘以每小时2.5元,把结果分输出到label5和label6

Private Sub Command1_Click()
Dim st As Date
Dim ed As Date
st = CDate(Text1.Text & ":" & Text2.Text)
ed = CDate(Text3.Text & ":" & Text4.Text)
Dim v As Double
Dim m As Long
m = DateDiff("n", st, ed)
v = m * 2.5
Label5.Caption = "总计时间" & m & "分钟"
Label6.Caption = "总金额" & v
End Sub
Private Sub Form_Load()
Label1.Caption = "开始时间"
Label2.Caption = "结事时间"
Text1 = ""
Label3.Caption = ":"
Text2 = ""
Text3 = ""
Label4.Caption = ":"
Text4 = ""
Label5.Caption = "总计时间"
Label6.Caption = "总金额"
Command1.Caption = "计算"
End Sub