dim s as long
s = text1
text2 = s \ 3600 & ":" & (s Mod 3600) \ 60 & ":" & (s Mod 3600) Mod 60
end sub
转换出的形式是 h:m:s本回答被提问者采纳
用VB 编写一个程序,将一个时间(以秒为单位)转换成“几小时几分几秒...
转换出的形式是 h:m:s
用VB实现:输入以秒为单位表示的时间,编写程序,将其换算成几日几时几...
Print Val(Times); "秒="; D; "日"; H; "时"; M; "分"; S; "秒"End Sub
vb 输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒
一看就知道是错了，大哥integer 数据范围为：-32768～32767 所以s = InputBox("秒数为", "请输入秒数")day = Int(s \/ 86400)，肯定是出错的.
帮我用VB编一个程序:输入以秒为单位的时间,换算出几时几分几秒?
tim = 10000 输入的秒数 h = Int(tim \/ 3600)m = Int((tim - h * 3600) \/ 60)s = tim - h * 3600 - m * 60 MsgBox h & ":" & m & ":" & s
vb小时分钟秒换算总秒的程序
Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = ZToFSQS(520354) '值为:6天32分钟34 TextBox1.Text = ZToFSAll(520354) '值为:6天0小时32分钟34秒 TextBox1.Text = FSoZT(6， 0， 32， 34) '值为:520354 End Sub。
VB编写时间转换程序输入小时分钟
Private Sub Command1_Click()MsgBox Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 + Val(Text3.Text)End Sub
用vb编一个可以计算两个时间差(以秒计算)的简单程序应该怎样做啊,谢谢...
dim h2 as string '第2时间的小时 dim m as string '第1时间的分钟 dim m2 as string '第2时间的分钟 dim s as string '第1时间的秒 dim s2 as string '第2时间的秒 dim sjc as long '时间差 if h<h2 then h=val(h)-val(h2)end if if m<m2 then m=val(...
用VB做一个程序,显示所用时间
Label1.Text = (s2.Days & "天" & s2.Hours & "小时" & s2.Minutes & "分钟" & s2.Seconds & "秒" & s2.Milliseconds & "毫秒")End Sub End Class 界面设计 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _Partial Class Form1 Inherits System.Windows.Forms.Form ...
利用vb程序设计在文本框中输入时数分钟数秒数并转化为秒数怎么做
If Not IsDate(Text1.Text) Then Exit Sub t1 = CDate(Text1.Text)t2 = Hour(t1) * 60 * 60 + Minute(t1) * 60 + Second(t1)
如何才能在VB里实现日期倒计时啊?
为了在VB中实现日期倒计时功能，请遵循以下步骤：首先，回顾关于两个日期相减的解释。在你的程序中加入一个timer控件，并将Interval属性设为1000毫秒，如此一来，每秒将触发一次Timer事件。在Timer事件中，利用DateDiff函数计算当前时间（通过Time函数获取）与你预先设定的倒计时时间的差值。具体操作包括三次...
