Sub DateAdd(sType As String,iInterval As Int,sDate As String) As String
DateTime.DateFormat="MM/dd/yyyy"
Dim iDate As Long
Dim sRetVal As String=""
iDate=DateTime.DateParse(sDate)
Dim per As Period
per.Initialize
SelectCase sType
'Day
Case"d"
per.Days=iInterval
'Years
Case"y"
per.Years=iInterval
'Hours
Case"h"
per.Hours=iInterval
'Minute
Case"n"
per.Minutes=iInterval
'Second
Case"s"
per.Seconds=iInterval
EndSelect
iDate=DateUtils.AddPeriod(iDate,per)
sRetVal=DateTime.Date(iDate)
Return(sRetVal)
End Sub
DateTime.DateFormat="MM/dd/yyyy"
Dim sCurrentDate As String=DateTime.Date(DateTime.Now)
For j=0 To 10
myList.Add(oTransactionDate.DateAdd("d",j*-1,sCurrentDate))
Next