一、运行效果：

二、代码：

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 秒