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 秒