會(huì)員登錄 - 用戶注冊(cè) - 網(wǎng)站地圖 Office中國(office-cn.net),專業(yè)Office論壇
當(dāng)前位置:主頁 > 技巧 > Access技巧 > 模塊函數(shù)VBA > 正文

常用的日期函數(shù)。希望對(duì)大家有幫助

時(shí)間:2004-08-18 15:17 來源:本站原創(chuàng) 作者:hi-wzj『… 閱讀:

正    文:  日期的計(jì)算是很靈活的,希望大家能夠觸類旁通。

'求某月天數(shù)
Function 本月天數(shù)(日期 As Date) As Byte
本月天數(shù) = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
End Function

'求月末日期
Function 月末(日期 As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 0) 
End Function

'求月初日期
Function 月初(日期 As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function

Function 月初(日期 As Date) As Date
  月初 = CDate(FORMat(日期, "yyyy-m-1"))
End Function


'自定義結(jié)帳日的歸屬月份函數(shù)。即本月25日前算本月,26日后歸入下個(gè)月。
   Function 結(jié)帳月(日期 As Date, 結(jié)帳日 As Byte)
     結(jié)帳月 = Format(DateSerial(Year(日期), Month(日期 - 結(jié)帳日) + 1, 1), "yy-mm")
   End Function

(責(zé)任編輯:admin)

頂一下
(0)
0%
踩一下
(0)
0%
發(fā)表評(píng)論
請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī),嚴(yán)禁發(fā)布色情、暴力、反動(dòng)的言論。
評(píng)價(jià):