1、首先我們打開一個(gè)工作樣表作為例子。
2、使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個(gè)新的模塊，并在模塊中輸入以下代碼：
Sub 查詢季度()
Dim jd As Date
Dim Msg
jd = InputBox("請輸入一個(gè)日期:")
Msg = "季度: " & DatePart("q", jd)
MsgBox Msg
End Sub
3、我們聲明jd變量為日期類型，這里聲明Msg變量并沒有給出具體類型，所以vba會(huì)默認(rèn)為variant類型。
4、給jd變量賦值，我們使用inputbox函數(shù)，并設(shè)置一個(gè)提示“請輸入一個(gè)日期：”，然后使用datepart函數(shù)來對inputbox返回的日期值，進(jìn)行季度判斷。其參數(shù)為q。記住q的輸入必須以雙引號包括。
5、因?yàn)槲覀冞@里求的是指定日期所在的季度，所以不需要對星期天數(shù)起止或年度天數(shù)起止進(jìn)行判斷，也就是簡寫了日期的參數(shù)。
6、我們運(yùn)行一下這個(gè)宏，指定日期為2016/8/19，來看看得到的結(jié)果。得到3季度，與正確答案一致。
