VBA中当前时间的格式

VBA中使用谈基局Time来锋世表示当前的时间。具体处理如下：

'1、程序开始含让

Sub NowTime()

'2、d窗显示当前的时间

MsgBox Time

'3、程序结束

End Sub

用hour取得当前的小时，然后根据这个判断就好了，类似于

Sub sample()

Dim h, s

h = Hour(Now)

If h <源悉 9 Then

s = "早上"

ElseIf h <12 Then

s = "上午"

ElseIf h <13 Then

s = "中午"

ElseIf h <18 Then

s = "下午"

Else

s = "雹谨乎晚上"

End If

MsgBox s &"ºÃ"晌扮

End Sub

---