TPascalTZ

type TPascalTZ = class(TObject)

protected

  FDetectInvalidLocalTimes: Boolean;

  FLineCounter: Integer;

  FCurrentLine: AsciiString;

  FRules: array of TTZRules;

  FZones: array of TTzZone;

  function CompareDates();

  function MonthNumberFromShortName();

  function IsLeapYear();

  function DayNameToNumber();

  function WeekDayToString();

  function MacroFirstWeekDay();

  function MacroLastWeekDay();

  function TimeToSeconds();

  function LookupRuleNonIndexed();

  function ParseLine();

  function ParseZone();

  function ParseRule();

  function IncDays();

  function TZDateToPascalDate();

  function PascalDateToTZDate();

  function WeekDayOf();

  procedure MacroSolver();

  function LocalTimeToGMT();

  function GMTToLocalTime();

  function ElapsedDaysSinceADToDate();

  function ElapsedDaysSinceAD();

public

  property ProcessedLines: Integer; [r]

  property DetectInvalidLocalTimes: Boolean; [rw]

  procedure GetTimeZoneNames();

  function TimeZoneToTimeZone();

  function ParseDatabaseFromFile();

  function ParseDatabaseFromStream();

  constructor Create;

end;

TPascalTZ

TObject