Sub dateDemo()
Dim datToday As Date
Dim datNextWeek As Date
Dim datLastWeek As Date
Dim datePaymentDate As Date
datToday = Date
datNextWeek = datToday + 7
datLastWeek = datToday - 7
datPaymentDate = datToday + 30
End Sub