Excelで家計簿ソフトを作ってみよう

'月の末日を取得
Private Function MonthLastDay(yy As Integer, mm As Integer) As Integer
    Dim i As Integer
    Dim tdate As Date
    
    tdate = Format(yy & "/" & mm & "/1", "yyyy/mm/dd")
    i = 28
    Do
        i = i + 1
    Loop Until Day(tdate + i - 1) = 1
    MonthLastDay = i - 1
End Function

'今月の日付
Private Sub ExGetThisMonth(ByRef stdate As Date, endate As Date)
    Dim ly As Integer
    Dim lm As Integer
    Dim ld As Integer
    
    ly = Year(Date)
    lm = Month(Date)
    ld = MonthLastDay(ly, lm)
    
    '開始日
    stdate = Format(ly & "/" & lm & "/1", "yyyy/mm/dd")
        
    '終了日
    endate = Format(ly & "/" & lm & "/" & ld, "yyyy/mm/dd")
    
End Sub

'先月の日付
Private Sub ExGetAgoMonth(ByRef stdate As Date, endate As Date)
    Dim ly As Integer
    Dim lm As Integer
    Dim ld As Integer
    Dim tdate As Date
    
    ly = Year(Date)
    lm = Month(Date)
    
    '今月の開始日
    tdate = Format(ly & "/" & lm & "/1", "yyyy/mm/dd")
    '先月の1日
    stdate = DateAdd("m", -1, tdate)
        
    ly = Year(stdate)
    lm = Month(stdate)
    ld = MonthLastDay(ly, lm)
    
    '先月の終了日
    endate = Format(ly & "/" & lm & "/" & ld, "yyyy/mm/dd")
    
End Sub

'先月ボタン
Private Sub CommandButton4_Click()
    Dim stdt As Date
    Dim endt As Date
    
    ExGetAgoMonth stdt, endt

    Debug.Print stdt & "  ～  " & endt
End Sub

'今月ボタン
Private Sub CommandButton5_Click()
    Dim stdt As Date
    Dim endt As Date
    
    ExGetThisMonth stdt, endt

    Debug.Print stdt & "  ～  " & endt
End Sub