1
0
mirror of synced 2024-12-22 01:03:07 +01:00

Delphi 2007 compatibility

This commit is contained in:
Mark van Renswoude 2016-04-18 11:46:27 +00:00
parent e9f864d150
commit 1af5bae544

View File

@ -201,10 +201,10 @@ function InDSTSpan(ADate: TDateTime; ATimeZoneInfo: TTimeZoneInformation): boole
var
lowerDayLight: TDateTime;
upperDayLight: TDateTime;
day: TDate;
day: TDateTime;
days: Integer;
function GetDay(AYear, AMonth, ADay, ADayOfWeek: Integer): TDate;
function GetDay(AYear, AMonth, ADay, ADayOfWeek: Integer): TDateTime;
var
I, Counter : Integer;
begin