题目
时间计算器
用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
提问时间:2021-03-18
答案
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
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1翻译:You gonna make it your own way,But you will be alright...
- 2we walk the road
- 3识遍天下字 读尽人间书和发愤识遍天下字,立志读尽人间书有什么不同
- 4新年挂历每本15元,买四送一,李阿姨一次买了四本,每本便宜多少元?买8本呢?
- 5如何防滑坡和泥石流
- 6In the past few years,this young scientist has made great a------ in his research
- 7竹子具有什么特点,可以象征什么
- 8带有 一面 这两个字的四字词语
- 9a small packet of crisps怎么翻译成汉语
- 105+5+5如何等于555
热门考点
- 1一辆自行车轮胎的外直径70厘米,如果每分钟转100圈,通过一座1099米的大桥需要多少分钟?
- 2what will you home be like 怎么回答?
- 3成语高山之()
- 4函数y=x^3+1是非奇非偶函数吧
- 5What thing will you take in the weather in Picture 翻译成中文
- 6对i have to do the work first的do the work 提问
- 7【单项式乘多项式(要完整过程!)急!】(4m+1)(4m-1)-3m乘(3m-2)
- 8翻译We need to learn how to be polite when we make requests
- 9What’s your middle school?
- 10我国使用最早的合金是__.目前用量最大,用途最广泛的合金是__,根据其化学成分可分为____和____两大类.