Get previous days date using VBA Macros

[vamshedhar]

Hiii,

I am having a small problem. Suppose i have a date given as "31-Dec-2013" in a Cell in Excel Sheet and some numerical value given as 4. Then i would like to get the date 4 days back of the given date. How can i get that using VBA Macros???

Ex:

If given date is "31-Dec-2013" and number is 6.

My result should be: "26-Dec-2013".

Another Ex:

If given date is "3-Nov-2013" and number is 4.

My result should be "31-Oct-2013".

Please Help me.

 

[John_w]

If the date is in A1 and is an Excel date then:

Sub Test()
    Dim d As Date
    Dim theNumber As Integer
    theNumber = 6
    d = Range("A1").Value - theNumber + 1
    MsgBox Format(d, "dd-mmm-yyyy")
End Sub