SUBTRACT ONE month to particular date format

[sal21]

i have this var (dimensione as string) ="03_2012" i need to subtract one month end return in this case new_var="02_2012" ...how to?

[HansV]

Here you go:

Code: Select all

    Dim my_var As String
    Dim new_var As String
    Dim parts() As String
    Dim d As Date
    my_var = "03_2010"
    parts = Split(my_var, "_")
    d = DateSerial(parts(1), parts(0), 0)
    new_var = Format(d, "mm_yyyy")
    Debug.Print new_var

[sal21]

Here you go:

Code: Select all

    Dim my_var As String
    Dim new_var As String
    Dim parts() As String
    Dim d As Date
    my_var = "03_2010"
    parts = Split(my_var, "_")
    d = DateSerial(parts(1), parts(0), 0)
    new_var = Format(d, "mm_yyyy")
    Debug.Print new_var