小编use*_*451的帖子

我需要一个日期循环转换成它的组件(小时,分钟,秒).以下代码很好地完成了这项工作.

Dim time_hour As Integer
Dim time_minute As Integer
Dim time_second As Integer
Dim time_ms As Integer
Dim storedNow As Date

storedNow = Now
time_hour = storedNow.Hour
time_minute = storedNow.Minute
time_second = storedNow.Second
time_ms = storedNow.Millisecond

但是,我发现这是一个性能问题.我已经使用分析器检查了源代码,而将Now转换为其组件似乎非常慢.是否有快速的方法将当前时间拆解成其组成部分？