Private Sub Form_Click()
Dim day As Integer, hour As Integer, second As Integer
s = InputBox("秒数为", "请输入秒数")
day = Int(s / 86400)
hour = Int((s - day * 86400) / 3600)
second = s - day * 86400 - hour * 3600
Print day; "天"; hour; "小时"; second; "秒"
End Sub
这样写,对吗?有什么更好的?
vb 输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒
一看就知道是错了,大哥integer 数据范围为:-32768~32767 所以s = InputBox("秒数为", "请输入秒数")day = Int(s \/ 86400),肯定是出错的.
用VB实现:输入以秒为单位表示的时间,编写程序,将其换算成几日几时几...
Form1.AutoRedraw = True Times = InputBox("输入时间(单位:秒)", "输入", 123456)T = Val(Times)S = T Mod 60 T = T \\ 60 M = T Mod 60 T = T \\ 60 H = T Mod 24 D = T \\ 24 Print Val(Times); "秒="; D; "日"; H; "时"; M; "分"; S; "秒"End Sub ...
用VB 编写一个程序,将一个时间(以秒为单位)转换成“几小时几分几秒...
转换出的形式是 h:m:s
帮我用VB编一个程序:输入以秒为单位的时间,换算出几时几分几秒?
tim = 10000 输入的秒数 h = Int(tim \/ 3600)m = Int((tim - h * 3600) \/ 60)s = tim - h * 3600 - m * 60 MsgBox h & ":" & m & ":" & s
vb字符格式转化为时间格式的函数
回答:看你TEXT中输入的数据了,是否只是区分时间就可以,还是会有年月日你输入的种类有几种,可以是12:00:00,会不会可能是120000,或者就是12,那首先判断是时间还是年月日,这情况很多,要说清楚,才能做
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编写倒计时的程序
用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位)。单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long dim fen as long dim miao as long Private Sub form_...
vb现在时间加秒数计算下个时间
d = DateAdd("s", s, d) MsgBox Format(d, "h点n分s秒") '把日期格式化为 *点 *分 *秒End Sub DateAdd函数对日期变量进行加减。第一个参数是加减的单位,(s表示秒;h:时; n:分; y:年; m:月; d:日)第二个参数加上一个整形数,如是负值就是减。第三个日期参数 ...
求助:vb中到到某一天的倒计时(精确到秒)
在代码中定义了一个常量OneDay,用于指定目标时间,格式为月\/日\/年。在Form_Load事件中,为Timer控件设置间隔为1000毫秒(即一秒),并启用Timer控件。在Timer控件的Timer事件处理程序中,首先计算从当前时间到目标时间OneDay的秒数,保存在变量s中。然后,根据s的值判断是否已过目标时间。如果s大于0,...
vba 将日期时间类型转换成数字型
vba将日期时间类型转换成数字型的方法。如下参考:1.首先在开发工具中打开VBA编辑器。2.例如,在单元区域中输入一些内容。3.在VBA编辑器中插入模块,如下所示。4.在模块中输入以下代码,然后运行它,如下图所示。5.在a列中以“6-15”格式输入数据数据,单元格将返回“sundate5,June15,2007”,并...