您当前的位置:首页 > 计算机 > 编程开发 > VB

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

时间:05-27来源:作者:点击数:

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

一、运行效果:

VB编程:DataPart函数判断当前所处季节-46

二、代码:

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 秒

方便获取更多学习、工作、生活信息请关注本站微信公众号城东书院 微信服务号城东书院 微信订阅号
推荐内容
相关内容
栏目更新
栏目热门