时间计算器用VB写个计算(加减)时间软件.要求如下:1:lable1(开始时间)label2(结事时间)text1(开始
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/10 16:14:35
时间计算器
用VB写个计算(加减)时间软件.
要求如下:
1:
lable1(开始时间)
label2(结事时间)
text1(开始时间(时))
label3(:)
text2(开始时间(分))
text3(结束时间(时))
label4(:)
text5(结束时间(分))
label5(显示总计时间)
label6(显示总金额)
command1(计算)
2:
计算精确到分钟!
3:
计算时间
比如:11点55分到18点10分中间用了多少小时多少分
然后然后再乘以每小时2.5元,把结果分输出到label5和label6
用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 Su
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 Su
时间计算器用VB写个计算(加减)时间软件.要求如下:1:lable1(开始时间)label2(结事时间)text1(开始
VB编写的计时器开始时间,结束时间都编好了,当停止时怎么计算经过时间即结束时间和开始时间得差
时间是从什么时候开始计算的
excel中知道开始时间和期数计算结束时间
如何计算计划的开始时间和结束时间
excel怎么计算时间加减?
连续分裂的植物细胞,细胞周期开始的时间应从什么时间开始计算?
自由时差=最迟开始时间-最早开始时间,那么,总时差的计算公式是什么?
冷战开始时间结束时间?
计算分娩时间所要的末次月经时间是指月经开始时间还是结束时间?
时间计算
Excel表格来计算时间的加减