paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:29:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range error in incmonth()

Browse Source 
git-svn-id: trunk@6858 -
This commit is contained in:
Jonas Maebe 2007-03-14 19:48:08 +00:00
parent d3736f563f
commit 6eb320506b
1 changed files with 6 additions and 5 deletions

11
rtl/objpas/sysutils/dati.inc
View File

@ -264,8 +264,8 @@ end;
function IncMonth(const DateTime: TDateTime; NumberOfMonths: integer = 1 ): TDateTime;
var
TempMonth, S: Integer;
Year, Month, Day : word;
S : Integer;
begin
If NumberOfMonths>=0 then
s:=1
@ -273,13 +273,14 @@ begin
s:=-1;
DecodeDate(DateTime, Year, Month, Day);
inc(Year,(NumberOfMonths div 12));
inc(Month,(NumberOfMonths mod 12)-1); // Mod result always positive
if Month>11 then
TempMonth:=Month+(NumberOfMonths mod 12)-1;
if (TempMonth>11) or
(TempMonth<0) then
begin
Dec(Month, S*12);
Dec(TempMonth, S*12);
Inc(Year, S);
end;
Inc(Month); { Months from 1 to 12 }
Month:=TempMonth+1; { Months from 1 to 12 }
If (Day>MonthDays[IsLeapYear(Year)][Month]) then
Day:=MonthDays[IsLeapYear(Year)][Month];
result := Frac(DateTime) + DoEncodeDate(Year, Month, Day);