瀏覽量:48次
excel中使用vba求當(dāng)前日期所在季度
1、首先我們打開一個工作樣表作為例子。
2、使用alt+f11組合快捷鍵進(jìn)入vbe編輯器,插入一個新的模塊,并在模塊中輸入以下代碼:
Sub 查詢季度()
Dim jd As Date
Dim Msg
jd = InputBox("請輸入一個日期:")
Msg = "季度: " & DatePart("q", jd)
MsgBox Msg
End Sub
3、我們聲明jd變量為日期類型,這里聲明Msg變量并沒有給出具體類型,所以vba會默認(rèn)為variant類型。
4、給jd變量賦值,我們使用inputbox函數(shù),并設(shè)置一個提示“請輸入一個日期:”,然后使用datepart函數(shù)來對inputbox返回的日期值,進(jìn)行季度判斷。其參數(shù)為q。記住q的輸入必須以雙引號包括。
5、因為我們這里求的是指定日期所在的季度,所以不需要對星期天數(shù)起止或年度天數(shù)起止進(jìn)行判斷,也就是簡寫了日期的參數(shù)。
6、我們運行一下這個宏,指定日期為2016/8/19,來看看得到的結(jié)果。得到3季度,與正確答案一致。
[聲明]本網(wǎng)轉(zhuǎn)載網(wǎng)絡(luò)媒體稿件是為了傳播更多的信息,此類稿件不代表本網(wǎng)觀點,本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。故此,如果您發(fā)現(xiàn)本網(wǎng)站的內(nèi)容侵犯了您的版權(quán),請您的相關(guān)內(nèi)容發(fā)至此郵箱【779898168@qq.com】,我們在確認(rèn)后,會立即刪除,保證您的版權(quán)。
官網(wǎng)優(yōu)化
整站優(yōu)化
渠道代理
400-655-5776