Working in: DM Scripting 14.0.1000.194
It seems that I am missing some components of a Function that I am working in:
The following code works for say like a few days ago, but does not seem to traverse a year. For example, take NOW and subtract 105 days ago.
'***************************************************************************************************
'This function will add or subtract a number days from a provided date
'***************************************************************************************************
Function DayAdd(ByRef tmpDate as DateTime, DayModification as integer) as Boolean
Dim i as integer
Dim tDayModification as integer
if DayModification < 0 then
tDayModification = ((DayModification) * (-1))
if tmpDate.Day < tDayModification then
i = tmpDate.day - DayModification
tmpDate.month = tmpDate.month - 1
if tmpDate.month = 0 then
tmpDate.year = tmpDate.year - 1
tmpDate.month = 12
tmpDate.day = 31 + i
else
tmpDate.day = GetDaysInMonth(tmpDate) + i
end if
else
tmpDate.day = tmpDate.day + DayModification
end if
else
if DayModification + tmpDate.day > GetDaysInMonth(tmpDate) then
tmpDate.day = ((DayModification + tmpDate.day) - GetDaysInMonth(tmpDate))
tmpDate.month = tmpDate.month + 1
if tmpDate.month = 13 then
tmpDate.month = 1
tmpDate.year = tmpDate.year + 1
end if
else
tmpDate.day = tmpDate.day + DayModification
end if
end if
DayAdd = True
End Function 'DateAdd
Thanks.