DateTimeToUnix 1 stunde zurück

[venice2]

DateTimeToUnix hat in neueren Versionen von Delphi 2 Parameter.

Delphi-Quellcode:

function DateTimeToUnix(const AValue: TDateTime; AInputIsUTC: Boolean): Int64;
var
  LDate: TDateTime;
 begin
  if AInputIsUTC then
    LDate := AValue
  else
    LDate := TTimeZone.Local.ToUniversalTime(AValue);
  Result := SecondsBetween(UnixDateDelta, LDate);
  if LDate < UnixDateDelta then
     Result := -Result;
 end;

AInputIsUTC: Boolean der 2 Parameter den gibt es nicht unter D2010.
Wie kann ich nun die Zeit übergeben das ich in unserer Zeitzone liege. bsp. 5 Uhr und nicht 4

In 10.4 schalte ich dazu den parameter AInputIsUTC auf false.
Wie ich schon sagte das geht so nicht unter D2010.
Das Problem ich liege mit allen Sendungen um 1 Stunde zurück und die EPG Daten stimmen dann nicht.
Ich muss die Unix zeit schicken da ansonsten mein send String einen Fehler zurück gibt.

Delphi-Quellcode:

function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
  Result := Round((AValue - UnixDateDelta) * SecsPerDay);
end;