今日の日付から、今月・先月・来月の月初と月末を取得する

Private Sub 日付計算_Click()

'今月
Me.今月月初 = DateSerial(Year(Date), Month(Date), 1)
Me.今月月末 = DateSerial(Year(Date), Month(Date) + 1, 0)

'先月
Me.先月月初 = DateSerial(Year(Date), Month(Date) - 1, 1)
Me.先月月末 = DateSerial(Year(Date), Month(Date), 0)

'来月
Me.来月月初 = DateSerial(Year(Date), Month(Date) + 1, 1)
Me.来月月末 = DateSerial(Year(Date), Month(Date) + 2, 0)

End Sub

【処理結果】

※処理日が「2013/4/16」の場合

日付を指定して、今月・先月・来月の月初と月末を取得する

http://ameblo.jp/nao-access/entry-11512336214.html