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

三、學習筆記

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 秒