Private Sub 日付計算_Click()
'今月
Me.今月月初 = DateSerial(Year(Me.日付), Month(Me.日付), 1)
Me.今月月末 = DateSerial(Year(Me.日付), Month(Me.日付) + 1, 0)
'先月
Me.先月月初 = DateSerial(Year(Me.日付), Month(Me.日付) - 1, 1)
Me.先月月末 = DateSerial(Year(Me.日付), Month(Me.日付), 0)
'来月
Me.来月月初 = DateSerial(Year(Me.日付), Month(Me.日付) + 1, 1)
Me.来月月末 = DateSerial(Year(Me.日付), Month(Me.日付) + 2, 0)
End Sub
【処理結果】
※[日付]に計算したい日付を入力しておく
