方法如下：
Msgbox Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"
Msgbox Hour(Time()) & "点" & Minute(Time()) & "分" & Second(Time()) & "秒"
Msgbox Format(Now(), "HH点MM分SS秒")
Msgbox Format(Time(), "HH点MM分SS秒")
例子：msgbox time
取小时 hour(time)
取分钟 minute(time)
取秒数 second(time)
如有疑问可追问-----本回答被提问者采纳
时间 不要秒和分
时间 不要秒 时为假
vb中怎么单独增加时间的小时、分钟、秒
可以从当前时间（Time）和系统当前日期和时间（Now）中获取 方法如下：Msgbox Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"Msgbox Hour(Time()) & "点" & Minute(Time()) & "分" & Second(Time()) & "秒"Msgbox Format(Now(), "HH点MM分SS秒")Msgb...
VB中如何获得date型数据的时、分、秒?分别是多少?请教高手~
利用VB自带的函数 hour(date) ‘ 小时m = minute(date) ' 分钟 s = second(date) ' 秒
vb,如何在提取系统时间后自动加上1小时1分30秒
如下代码即可实现 Dim d1 As Date, d2 As Date d1 = Now d2 = DateAdd("h", 1, d1)d2 = DateAdd("n", 1, d2)d2 = DateAdd("s", 30, d2)或者直接加上秒数：Dim d1 As Date, d2 As Date d1 = Now d2 = DateAdd("s", 3690, d1)还可以这样：Dim d1 As Date, ...
VB高手帮忙:在文本框中输入小时,分,秒,计算共几秒。怎么输入代码啊...
'新建三个文本框,分别用来输入时分秒,(name)属性就用默认 '新建一个结果标签Label,属性全部默认 '再新建一个按钮,属性全部默认 Private Sub Command1_Click()If (Val(Text1.Text) > 0 And Val(Text1.Text) < 24) And (Val(Text2.Text) > 0 And Val(Text2.Text) < 60) And (Val(Text...
vb如何在获得毫秒数而输出时分秒毫秒?
Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub Form_Load()Timer1.Interval = 1 End Sub Private Sub Timer1_Timer()Debug.Print Format(Time, "hh:mm:ss") & ":" & Right(timeGetTime, 3)End Sub ...
VB的时钟时间间隔一秒怎么设置
VB的时钟时间间隔一秒首先得用鼠标选中定时器，然后右下角的属性窗口里面有个属性叫Interval，设置为1000
怎样在VB编程中插入当前日期和时间?
先插入一个Timer控件,将其Interval属性设置为1000,再插入一个Label控件,其属性你自己设置,Timer1的代码:Label1.Caption = Date & " " & Time
VB程序设计怎么做数字时钟
1、添加一个“label控件”命名为label2、添加一个“timer控件”命名为timer13、设置“timer1”的“Interval属性”为1000使用到的代码：Dim Hour As Integer '小时Dim Min As Integer '分钟Dim Sec As Integer '秒Private Sub Form_Load() Hour = 0 Min = 0 Sec = 0 Label1....
VB编辑计时器显示当前时间的数字时钟(包括时:分:秒)代码
Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = Time '在Form_Load就要加上,否则你要等1秒后Label才会开始跑 End Sub Private Sub Timer1_Timer()Label1.Caption = Time End Sub
用VB实现:输入以秒为单位表示的时间,编写程序,将其换算成几日几时几...
Print intHour intMinute = (Num Mod 86400 Mod 3600) \\ 60 Debug.Print intMinute intSecond = Num Mod 86400 Mod 3600 Mod 60 Debug.Print intSecond Label2.Caption = CStr(intDay) + "日" + CStr(intHour) + "时" + CStr(intMinute) + "分" + CStr(intSecond) + "秒"...
