一、运行效果：
二、代码：
Private Sub NowPart() '判断季节
Dim Str
Str = DatePart("q", Now)
Select Case Str
Case 1
MsgBox "当前是春季！"
Case 2
MsgBox "当前是夏季！"
Case 3
MsgBox "当前是秋季！"
Case 4
MsgBox "当前是冬季！"
End Select
End Sub
Private Sub Command1_Click()
Call NowPart
End Sub
三、学习笔记
DatePart 函数
返回一个包含已知日期的指定时间部分的 Variant (Integer)。
语法：DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
DatePart 函数语法中有下列命名参数：
interval 必要。字符串表达式，是要返回的时间间隔。
date 必要。要计算的 Variant (Date) 值。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
interval 参数的设定值如下：
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
