anchor.diff:    result := StrToInt(v);
     if (result < min) or (result > max) then
       raise exception.create('Value for '+name+' in date/time "'+value+'" is not allowed');
  -
   end;
   
   
  
positive.code:     TimezoneMins : Integer;
    private
      procedure check;
      procedure RollUp;
      function privToString: String;
    public
  
negative.code:     function toString: String;  overload; // as human readable
      function toHL7: String; // as hhhhmmhhnnss.zzz+T
      function toXML : String;
  
      class function isValidXmlDate(value : String) : Boolean; static;
  
      property Precision : TDateTimeExPrecision read FPrecision;
    end;
  