即你用一个text控件显示就是
text1.text=val(text2.text)\60 & "小时"& val(text2.text mod 60) & "分钟"
上述程序中,text1是要显示的文本框,text2是输入的分钟数文本框
msgbox a\60 & "小时" & a mod 60 & "分钟"
【VB】把分钟转化成小时和分钟
用分钟数整除60,然后再用分钟数模60(取余)即你用一个text控件显示就是 text1.text=val(text2.text)\\60 & "小时"& val(text2.text mod 60) & "分钟"上述程序中,text1是要显示的文本框,text2是输入的分钟数文本框
VB分钟化为小时
text2.text显示结果 为 1小时30分
VB将分钟数转换为 时分秒 分别显示 textbox1,textbox2、textbox3里面...
Text2.Text = Val(Text1.Text) \\ 60 & "时"Text3.Text = Int(Val(Text1.Text)) - Val(Text2.Text) * 60 & "分"Text4.Text = CSng(Val(Text1.Text) - Int(Val(Text1.Text))) * 60 & "秒"End Sub
VB编写时间转换程序输入小时分钟
Private Sub Command1_Click()MsgBox Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 + Val(Text3.Text)End Sub
vb.net怎样把小时、分钟、秒转换为分钟
这个简单。dim time1 datetime ="1:20:30"dim h as int =time1.tostring("hh")dim M as int =time1.tostring("MM")dim S as int=time1.tostring("ss")dim SUMfen as double=h*60+M+S\/60SUMfen就是最后 的结果。语法你自己修改下。纯手打。
VB中怎样把秒转换成分钟和小时显示?
VB中怎样把秒转换成分钟和小时显示? 我来答 分享 微信扫一扫 网络繁忙请稍后重试 新浪微博 QQ空间 举报 浏览15 次 可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。 vb 搜索资料 本地图片 图片链接 提交回答 匿名 回答自动保存中...
vb字符格式转化为时间格式的函数
回答：看你TEXT中输入的数据了,是否只是区分时间就可以,还是会有年月日你输入的种类有几种,可以是12:00:00,会不会可能是120000,或者就是12,那首先判断是时间还是年月日,这情况很多,要说清楚,才能做
VB中如何获得date型数据的时、分、秒?分别是多少?请教高手~
利用VB自带的函数 hour(date) ‘ 小时m = minute(date) ' 分钟 s = second(date) ' 秒
VB求解~设计一个代码将秒数转化为小时,分钟~
Dim Bb(1 To 3) As String 'bb1-3对应时、分、秒 Bb(1) = Val(Text1.Text) \\ 3600 Bb(2) = Val(Text1.Text) \\ 60 Bb(3) = Val(Text1.Text) - Val(Bb(2)) * 60 If Bb(2) >= 60 Then Bb(2) = Bb(2) - 60 * Bb(1)Label1.Caption = Val(Bb(1)) & " 时 ...
VB时间计算
用DateAdd函数。示例：＝＝＝ Private Sub Form_Click()Dim t As Date t = #7\/16\/2009 11:17:00 AM t = DateAdd("n", 15, t) '加分钟 t = DateAdd("h", 1, t) '加小时 Print t End Sub
