[RESOLVED] Calculating Date

Let's say I have two date values, date1 and date2. date1 stores the date today, and date2 is the result when I subtract 7 days from the date today. Is there any function in VB that makes me get the exact date of the day after I subtract 7 days from it? (ex: if today is 1/22, the output once I subtract 7 days from the date today would be 1/15)

vb Code:

dim date2 as date = now.adddays(-7)

Code:

---

        Dim d1 As DateTime = DateTime.Now
        Dim d2 As DateTime = d1.AddDays(-7)

---