vba : date_macro

201409.xlsm

Option Base 0

Sub temp()
    Dim i, intrv As Integer
    Dim indt As String
    Dim base_date As Date
    
    Dim edt() As Variant
    Dim yymm() As Variant
    Dim yyyymm() As Variant
    
    Dim edtf() As Variant
    Dim yymmf() As Variant
    Dim yyyymmf() As Variant

    
    '숫자로 된 기준일(20140101)을 받아서 스트링으로 저장
    indt = LTrim(str(Worksheets("Sheet1").Range("a2")))
    base_date = DateSerial(Mid(indt, 1, 4), Mid(indt, 5, 2), Mid(indt, 7, 2))
    
    intrv = 60
    
    ReDim yymm(intrv)
    ReDim yymmf(intrv)
    ReDim yyyymm(intrv)
    ReDim yyyymmf(intrv)
    
        
    For i = 0 To intrv Step 1
        If i = 0 Then
            yymm(i) = Format(Date, "yymm")
            yyyymm(i) = Format(Date, "yyyymm")
            yymmf(i) = Format(Date, "yymm")
            yyyymmf(i) = Format(Date, "yyyymm")
        Else
        
            yymm(i) = Format(DateAdd("m", i * -1, Date), "yymm")
            yyyymm(i) = Format(DateAdd("m", i * -1, Date), "yyyymm")
            yymmf(i) = Format(DateAdd("m", i, Date), "yymm")
            yyyymmf(i) = Format(DateAdd("m", i, Date), "yyyymm")
        End If
        Debug.Print i & " " & yymm(i) & " " & yyyymm(i) & " " & yymmf(i) & " " & yyyymmf(i)
    Next i
End Sub