anchor.diff:  var
     D, MS: Int64;
   begin
  +  Assert(APreciseTime > 0);
  +
     D := (Int64(PUInt64(@APreciseTime)^ div Cardinal(MSecsPerDay)) - DateDelta) * MSecsPerDay;
     MS := Int64(PUInt64(@APreciseTime)^ mod Cardinal(MSecsPerDay));
   
  
positive.code:       else
        begin
          { This is not technically a rule - just naked segment. We'll need to infer data. }
          if YearOf(LR.FStartsOn) < LR.FYear then
            LR.FStartsOn := EncodePreciseDate(LR.FYear, 1, 1);
        end;
  
  
negative.code:       LEnd := IncMilliSecond(LEnd, -1);
  
        { Collect last rule of the previous year. }
        if (NullYearOf(LStart) <= AYear - 1) and (YearOf(LEnd) >= AYear - 1) then
        begin
          { Load the rules for previous year. }
          LRules := GetPeriodRulesForYear(LPeriod, AYear - 1);
  