<em>excel</em>中编程vba 怎么得到小时数？公式怎么写，分钟和秒...-excel

楼主的需求请再明确下

去时间的小时，是将时长换算成小时，还是将某个时间的"小时”提取出来

计算小时差，两个时间相减结果是天数*24就是小时，再*60就是分钟

取小时是hour，分钟minute

'以对话百框显示当度前时间的时、问分、秒答
MsgBox "当前时间：内" & Time & Chr(10) & _
"时：容" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)

1. 按alt+F11键，打开VBA窗口，双击sheet1，将下方的代码复制到打开的窗口中；

2. Sub 倒计时()
           [a1].NumberFormatLocal = "h:mm:ss;@"
           [a1] = [a1] - 1 / 3600 / 24
       If [a1] < 1 / 60 / 24 Then
           [a1].Font.ColorIndex = 3
       Else
           [a1].Font.ColorIndex = 5
       End If
       If [a1] > 0 Then
            Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时", , True
       Else
           [a1] = "00:00:00"
       End If
   End Sub

3. 在A1单元来格输入倒计时开始的小时数，如3个小时“3:00”格式自定；

4. 点击源“开发工具”-“插入”-“表zd单控价”，插入一个按钮，打上想要的文字；

5. 在按钮上右键，指定宏，选择刚才编辑的宏，确定，

6. 点击按钮，就开始计时了，低于1分钟后，字体会变成红色。

'以对百话框显示度当前时间的问时、分、秒
MsgBox "当前答时间：专" & Time & Chr(10) & _
"时：属" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)