在宏程序中查看时间，可以使用特定的宏变量来读取当前的日期和时间。以下是一些常见的方法和示例：
使用宏变量3011和3012
`3011` 用于读取当前日期（年/月/日），格式为十进制数。
`3012` 用于读取当前时间（小时/分钟/秒），格式为十进制数。
示例代码：
```vba
Sub GetCurrentDateTime（）
Dim currentDate As String
Dim currentTime As String
' 获取当前日期
currentDate = Format（Date, "yyyyMMdd"）
' 获取当前时间
currentTime = Format（Time, "HHmmss"）
' 输出日期和时间
MsgBox "当前日期： " & currentDate & vbCrLf & "当前时间： " & currentTime
End Sub
```
使用Timer函数
`Timer` 函数可以获取当前时间（以秒为单位）。
示例代码：
```vba
Sub MonitorPerformance（）
Dim startTime As Double
Dim endTime As Double
' 记录开始时间
startTime = Timer
' 这里放置您的宏代码
' 例如： Call YourMacro
' 记录结束时间
endTime = Timer
' 显示运行时间
MsgBox "宏运行时间： " & endTime - startTime & "秒"
End Sub
```
在Excel中提取时间
可以使用Excel的内置函数如 `HOUR` 和 `MINUTE` 来提取时间。
示例代码：
```vba
Sub ExtractTime（）
Dim currentTime As String
currentTime = Time
MsgBox "当前时间（小时：分钟）: " & Format（currentTime, "hh:mm"）
End Sub
```
通过这些方法，您可以在宏程序中方便地获取和显示当前日期和时间。根据您的具体需求选择合适的方法即可。