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/109661624
【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱:
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论(0)