anchor.diff:  
     LYMinus1.FPeriod := nil;
     LYPlus1.FPeriod := nil;
  -  LY1 := nil;
   
     LY1 := {$IFDEF DELPHI}TList{$ELSE}TFPGList{$ENDIF}<TObservedRule>.Create;
     try
  
positive.code:     FAliasTo: PZone; { Pointer to aliased zone }
    end;
  
  const
     CNullDateTime = -693594;
  
  {$INCLUDE 'TZDB.inc'}
  
  function DateTimeToPreciseTime(const ADateTime: TDateTime): TPreciseTime; inline;
  begin
    Result := TimeStampToMSecs(DateTimeToTimeStamp(ADateTime));
  end;
  
  function PreciseTimeToDateTime(const APreciseTime: TPreciseTime): TDateTime; inline;
  begin
    Result := TimeStampToDateTime(MSecsToTimeStamp(APreciseTime));
  end;
  
  function PreciseTimeToStr(const APreciseTime: TPreciseTime): string; inline;
  
negative.code: 
    ///  Special type used to manipulate TDateTime in millisecond precision.
    ///  This is an internal type.
    TPreciseTime = type Int64;
  
    /// <summary>Represents a specific date/time segment of the year.</summary>
    /// <remarks>A calendar year in most time zones is divided into standard/ambiguous/daylight/invalid/standard segments.</remarks>
  