From 1af5bae54403bdd929970755507fbc4a47443ac1 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Mon, 18 Apr 2016 11:46:27 +0000
Subject: [PATCH] Delphi 2007 compatibility

---
 XMLDataBindingUtils.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/XMLDataBindingUtils.pas b/XMLDataBindingUtils.pas
index 3e632db..31dcbc9 100644
--- a/XMLDataBindingUtils.pas
+++ b/XMLDataBindingUtils.pas
@@ -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