VB编程：DataPart函数判断当前所处季节-46
【摘要】
一、运行效果：
二、代码：
Private Sub NowPart() '判断季节
Dim Str
Str = DatePart("q", Now)
Select Case S...
一、运行效果：
二、代码：
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 秒
文章来源: pengshiyu.blog.csdn.net，作者：彭世瑜，版权归原作者所有，如需转载，请联系作者。
原文链接：pengshiyu.blog.csdn.net/article/details/81048889
【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱：
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论（0）