excel中使用vba求當前日期所在季度

1、首先我們打開一個工作樣表作為例子。

2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Sub 查詢季度()

Dim jd As Date

Dim Msg

jd = InputBox("請輸入一個日期:")

Msg = "季度: " & DatePart("q", jd)

MsgBox Msg

End Sub

3、我們聲明jd變量為日期類型，這里聲明Msg變量并沒有給出具體類型，所以vba會默認為variant類型。

4、給jd變量賦值，我們使用inputbox函數，并設置一個提示“請輸入一個日期：”，然后使用datepart函數來對inputbox返回的日期值，進行季度判斷。其參數為q。記住q的輸入必須以雙引號包括。

5、因為我們這里求的是指定日期所在的季度，所以不需要對星期天數起止或年度天數起止進行判斷，也就是簡寫了日期的參數。

6、我們運行一下這個宏，指定日期為2016/8/19，來看看得到的結果。得到3季度，與正確答案一致。

相關推薦：

Excel怎么篩選介于兩個日期之間的數據?

excel柱形圖表坐標軸上的空白日期怎么去掉?

excel輸入的數據直接顯示成日期格式該怎么辦?