时间计算器用VB写个计算(加减)时间软件.要求如下:1:lable1(开始时间)label2(结事时间)text1(开始
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/13 16:46:37
时间计算器
用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
![时间计算器用VB写个计算(加减)时间软件.要求如下:1:lable1(开始时间)label2(结事时间)text1(开始](/uploads/image/z/448523-35-3.jpg?t=%E6%97%B6%E9%97%B4%E8%AE%A1%E7%AE%97%E5%99%A8%E7%94%A8VB%E5%86%99%E4%B8%AA%E8%AE%A1%E7%AE%97%EF%BC%88%E5%8A%A0%E5%87%8F%EF%BC%89%E6%97%B6%E9%97%B4%E8%BD%AF%E4%BB%B6.%E8%A6%81%E6%B1%82%E5%A6%82%E4%B8%8B%EF%BC%9A1%EF%BC%9Alable1%28%E5%BC%80%E5%A7%8B%E6%97%B6%E9%97%B4%29label2%28%E7%BB%93%E4%BA%8B%E6%97%B6%E9%97%B4%29text1%28%E5%BC%80%E5%A7%8B)
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表格来计算时间的加减