check if myvar is = current date + 3 motnh

[sal21]

I have this MyVar="01_2012".
How to check if current month date is 01_2012+3 month

Example:
current month date is 02/04/2012 ok, the chek date is true

[HansV]

Like this:

Code: Select all

    Dim arrParts
    Dim d As Date
    arrParts = Split(MyVar, "_")
    d = DateSerial(arrParts(1), arrParts(0), 1)
    If DateDiff("m", d, Date) = 3 Then
        ' Difference is 3 months
    Else
        ' Difference is not 3 months
    End If

[sal21]

Like this:

Code: Select all

    Dim arrParts
    Dim d As Date
    arrParts = Split(MyVar, "_")
    d = DateSerial(arrParts(1), arrParts(0), 1)
    If DateDiff("m", d, Date) = 3 Then
        ' Difference is 3 months
    Else
        ' Difference is not 3 months
    End If

arrrrrggggg.........

Based this code i need to subtract 3 month and return TRE_MESI=01_2012

Sub MENO_TRE_MESI()

Dim arrParts() As String, MY_VAR As String
Dim D As Date, TRE_MESI

MY_VAR = "03_2012"
arrParts = Split(MY_VAR, "_")
D = DateSerial(arrParts(1), arrParts(0), 1)

TRE_MESI = Format(D, "MM_YYYY")

End Sub

[HansV]

But if MY_VAR represents March 2012, and if you subtract 3 months, shouldn't you get December 2011, i.e. TRE_MESI = "12_2011"?

[sal21]

But if MY_VAR represents March 2012, and if you subtract 3 months, shouldn't you get December 2011, i.e. TRE_MESI = "12_2011"?

yes! Perfect...

[HansV]

Change

D = DateSerial(arrParts(1), arrParts(0), 1)

to

D = DateSerial(arrParts(1), arrParts(0) - 3, 1)