はじめに

日付処理のサンプルを作ってみたので、Qiitaの記事として公開します。

処理の中身

先月の年月を年は西暦4桁、月は2桁で表示します。

サンプルソースコード

サンプルソースコードは以下の通りです。

'日付処理サンプル
'新規作成 2024/12/20

Sub Get_date()
    '現在の日付変数
    Dim currentDate As Date
    '西暦変数
    Dim year1 As Integer
    '月変数
    Dim month1 As Integer
    '文字列型月変数
    Dim str_month1 As String
    Dim result_str As String
    
    '現在の時刻を取得
    currentDate = Date
    '年と月を取得
    year1 = year(currentDate)
    month1 = month(currentDate) - 1
    
    '前月が0ならば西暦を１引いて、月を１２にする
    If month1 = 0 Then
        year1 = year1 - 1
        month1 = 12
    End If
    '月を文字列にする
    str_month1 = CStr(month1)
    
    '月が１文字の時、0をつけて２文字にする
    If Len(str_month1) = 1 Then
        str_month1 = "0" & str_month1
        
    End If
    
    '西暦4桁、月2桁を結合する
    result_str = CStr(year1) & str_month1
    'ポップアップする
    MsgBox result_str
    
   
End Sub

最後に

しょーもないVBAコードですね