anchor.diff:  
   function DayOfTheWeek(const APreciseTime: TPreciseTime): Word; inline;
   begin
  +  Assert(APreciseTime > 0);
     Result := {$IFDEF DELPHI}System.{$ENDIF}DateUtils.DayOfTheWeek(PreciseTimeToDateTime(APreciseTime));
   end;
   
   function DayOf(const APreciseTime: TPreciseTime): Word; inline;
   begin
  +  Assert(APreciseTime > 0);
     Result := {$IFDEF DELPHI}System.{$ENDIF}DateUtils.DayOf(PreciseTimeToDateTime(APreciseTime));
   end;
   
   function MonthOf(const APreciseTime: TPreciseTime): Word; inline;
   begin
  +  Assert(APreciseTime > 0);
     Result := {$IFDEF DELPHI}System.{$ENDIF}DateUtils.MonthOf(PreciseTimeToDateTime(APreciseTime));
   end;
   
   function YearOf(const APreciseTime: TPreciseTime): Word; inline;
   begin
  +  Assert(APreciseTime > 0);
     Result := {$IFDEF DELPHI}System.{$ENDIF}DateUtils.YearOf(PreciseTimeToDateTime(APreciseTime));
  +end;
  +
  +function NullYearOf(const APreciseTime: TPreciseTime): Word; inline;
  +begin
  +  if APreciseTime = 0 then
  +    Result := 0
  +  else
  +    Result := YearOf(APreciseTime);
   end;
   
   function ComparePreciseTime(const A, B: TPreciseTime): Integer; inline;
  
positive.code:   LYMinus1, LYPlus1, LR, LSk: TObservedRule;
  begin
    { Mark all intermediary data as un-initialized. <-- this is date ZERO which is the start point. }
    LStart := DateTimeToPreciseTime(CNullDateTime);
  
    LYMinus1.FPeriod := nil;
    LYPlus1.FPeriod := nil;
  
negative.code: 
  function PreciseTimeToStr(const APreciseTime: TPreciseTime): string; inline;
  begin
    Assert(APreciseTime > 0);
    Result := FormatDateTime('yyyy-MM-dd hh:mm:ss.zzz', PreciseTimeToDateTime(APreciseTime));
  end;
  
  