anchor.diff:  function UnivDateTimeToUnix(dtDate: TDateTime): Longint;
   function UnixToUnivDateTime(USec: Longint): TDateTime;
   
  -function UnixTimeToLocalElapsedTime(USec : Longint) : AnsiString;
  -Function DateTimeElapsedTime(dtDate : TDateTime) : AnsiString;
  +function UnixTimeToLocalElapsedTime(USec : Longint) : String;
  +Function DateTimeElapsedTime(dtDate : TDateTime) : String;
   
  -Function UnixTimeToLocalStr(UnixTime : Longint) : AnsiString;
  +Function UnixTimeToLocalStr(UnixTime : Longint) : String;
   
   implementation
   
   {$IFDEF FPC}
   Uses DateUtils;
  -{$ELSE}
  -function TzSpecificLocalTimeToSystemTime; external 'kernel32.dll' name 'TzSpecificLocalTimeToSystemTime';
  -function SystemTimeToTzSpecificLocalTime; external kernel32 name 'SystemTimeToTzSpecificLocalTime';
   {$ENDIF}
   
   const
       UnixStartDate: TDateTime = 25569.0; // 01/01/1970
   
  -function UnixTimeToLocalElapsedTime(USec : Longint) : AnsiString;
  +function UnixTimeToLocalElapsedTime(USec : Longint) : String;
   Var diff, positivediff : Longint;
   Begin
     diff := UnivDateTimeToUnix(DateTime2UnivDateTime(now)) - Usec;
  
positive.code:   Result := (Usec / 86400) + UnixStartDate;
  end;
  
  Function UnixTimeToLocalStr(UnixTime : Longint) : AnsiString;
  begin
    Result := DateTimeToStr(UnivDateTime2LocalDateTime(UnixToUnivDateTime(UnixTime)))
  end;
  
negative.code: begin
    Result := UniversalTimeToLocal(d,-GetLocalTimeOffset);
  end;
  {$ELSE}
  begin
    Result := TTimeZone.Local.ToLocalTime(d);
  end;
  {$ENDIF}
  
  