VB编程：DataPart函数判断当前所处季节

一、运行效果：

二、代码：

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 秒