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

一、运行效果:


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 秒  


上一篇:VB编程:获取字符串中数字个数


下一篇:C#编程:winForm中MenuStrip中的添加子菜单事件