提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  后端

当前栏目

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

编程 函数 判断 当前 vb 46
2023-09-14 09:07:16 时间
一、运行效果：
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 秒 

相关文章