MsgBox Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 + Val(Text3.Text)
End Sub
【VB】把分钟转化成小时和分钟
text1.text=val(text2.text)\\60 & "小时"& val(text2.text mod 60) & "分钟"上述程序中,text1是要显示的文本框,text2是输入的分钟数文本框
VB编写时间转换程序输入小时分钟
Private Sub Command1_Click()MsgBox Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 + Val(Text3.Text)End Sub
用VB实现:输入以秒为单位表示的时间,编写程序,将其换算成几日几时几...
Dim Times As String, T As Long Dim D As Integer, H As Integer, M As Integer, S As Integer Private Sub Form_Load()Form1.AutoRedraw = True Times = InputBox("输入时间(单位:秒)", "输入", 123456)T = Val(Times)S = T Mod 60 T = T \\ 60 M = T Mod 60 T = T \\...
VB6.0程序 输入时间(小时,分和秒),输出总计多少分和秒
Private Sub Command1_Click()Dim hh As Long, mm As Long, ss As Long hh = InputBox("请输入小时", "请输入小时")mm = InputBox("请输入分", "请输入分")ss = InputBox("请输入秒", "请输入秒")Dim result As Long result = (hh * 24 + mm) * 60 + ss MsgBox "结果为：...
用vb程序:输入小时数、分钟数和秒数,编写程序计算总秒数。
Private Sub Command1_Click()Dim a, b, c, sum As Integer a = Val(InputBox("请输入小时数"))b = Val(InputBox("请输入分钟数"))c = Val(InputBox("请输入秒数"))sum = a * 3600 + b * 60 + c Print "总秒数为" & sum End Sub ...
vb倒计时程序代码 三个文本框 输入小时 分钟 秒 一个按钮 开始 一个标 ...
Begin VB.Timer Timer1 Enabled = 0 'False Interval = 1000 Left = 1545 Top = 630 End Begin VB.CommandButton Command1 Caption = "开始倒计时"Height = 510 Left = 2730 TabIndex = 3 Top = 615 Width = 1020 End Begin...
利用vb程序设计在文本框中输入时数分钟数秒数并转化为秒数怎么做_百度...
If Not IsDate(Text1.Text) Then Exit Sub t1 = CDate(Text1.Text)t2 = Hour(t1) * 60 * 60 + Minute(t1) * 60 + Second(t1)
要用VB,自己输入两个时间,然后算这两个时间的差(小时)。这个应该怎么操 ...
text1和text2，程序运行时输入两个日期，按 年-月-日 时:分:秒 的格式来输入，然后点击command1来计算 Private Sub Command1_Click()MsgBox (CDate(Text1.Text) - CDate(Text2.Text)) * 24 End Sub 先把 text转换成date，再计算，结果是以天来计算的，*24，转成小时。===补充 字符串转...
vb 输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒_百度...
一看就知道是错了，大哥integer 数据范围为：-32768～32767 所以s = InputBox("秒数为", "请输入秒数")day = Int(s \/ 86400)，肯定是出错的.
输入小时分秒转化为总秒数的VB程序设计
dim h as integer,m as integer,s as integer,ss as long h=val(text1.text)m=val(text2.text)s=val(text3.text)ss=h*3600+m*60+s label1.caption="总秒数=" & ss
