如何从日期时间格式中提取小时数12/10/2012 12:18:58 PM
?
我Hour(Format(d1, "mm/dd/yyyy HH:mm:ss HH24"))
在另一个 Stack Overflow 问题上找到了这个,但对我不起作用。
这应该工作
=文本(D1,“hh”)
并格式化为时间
如果D1
包含日期/时间作为Date Time Serial Number
或作为可识别为的字符串,date time
则使用=Hour(D1)
例如D1
= 字符串21/03/2013 18:45:00
=Hour(D1)
=18
例如D1
= 41354.781250
then =Hour(D1)
=18
注意:D1
可能包含一个值,但被格式化为显示为日期/时间。检查单元格编号格式。
要在 VBA 中执行此操作,请尝试此操作
Sub demo()
Dim rng As Range
Dim Hr As Long
Set rng = Range("D1")
Hr = Hour(rng.Value)
Debug.Print Hr
End Sub
在中查看结果Immediate Window
尝试:
Hour(format(now(), "yyyy-MM-dd hh:mm:ss"))
如果“12/10/2012 12:18:58 PM”在单元格 A1 中:
=TIME(HOUR(a1),MINUTE(a1),SECOND(a1))
输入公式后,您可以右键单击“格式单元格”并选择您要查看的时间格式。我已经在 Excel 2013 中验证了这个公式。
试试这个http://www.vb6.us/tutorials/date-time-functions-visual-basic 它真的在 vba 中工作
或者Now
如果你现在想要日期和时间就使用