Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Date value calculation

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