TIdDateTimeStamp

type TIdDateTimeStamp = class(TIdBaseComponent)

protected

  FDay: Integer;

  FIsLeapYear: Boolean;

  FMillisecond: Integer;

  FSecond: Integer;

  FTimeZone: Integer;

  FYear: Integer;

  procedure CheckLeapYear;

  procedure SetDateFromISO8601();

  procedure SetTimeFromISO8601();

  procedure InitComponent; override;

public

  procedure AddDays();

  procedure AddHours();

  procedure AddMilliseconds();

  procedure AddMinutes();

  procedure AddMonths();

  procedure AddSeconds();

  procedure AddTDateTime();

  procedure AddTIdDateTimeStamp();

  procedure AddTTimeStamp();

  procedure AddWeeks();

  procedure AddYears();

  function GetAsISO8601Calendar;

  function GetAsISO8601Ordinal;

  function GetAsISO8601Week;

  function GetAsRFC822;

  function GetAsTDateTime;

  function GetAsTTimeStamp;

  function GetAsTimeOfDay;

  function GetBeatOfDay;

  function GetDaysInYear;

  function GetDayOfMonth;

  function GetDayOfWeek;

  function GetDayOfWeekName;

  function GetDayOfWeekShortName;

  function GetHourOf12Day;

  function GetHourOf24Day;

  function GetIsMorning;

  function GetMinuteOfDay;

  function GetMinuteOfHour;

  function GetMonthOfYear;

  function GetMonthName;

  function GetMonthShortName;

  function GetSecondsInYear;

  function GetSecondOfMinute;

  function GetTimeZoneAsString;

  function GetTimeZoneHour;

  function GetTimeZoneMinutes;

  function GetWeekOfYear;

  procedure SetFromDOSDateTime();

  procedure SetFromISO8601();

  procedure SetFromRFC822();

  procedure SetFromTDateTime();

  procedure SetFromTTimeStamp();

  procedure SetDay();

  procedure SetMillisecond();

  procedure SetSecond();

  procedure SetTimeZone();

  procedure SetYear();

  procedure SubtractDays();

  procedure SubtractHours();

  procedure SubtractMilliseconds();

  procedure SubtractMinutes();

  procedure SubtractMonths();

  procedure SubtractSeconds();

  procedure SubtractTDateTime();

  procedure SubtractTIdDateTimeStamp();

  procedure SubtractTTimeStamp();

  procedure SubtractWeeks();

  procedure SubtractYears();

  procedure Zero;

  procedure ZeroDate;

  procedure ZeroTime;

  property AsISO8601Calendar: string; [r]

  property AsISO8601Ordinal: string; [r]

  property AsISO8601Week: string; [r]

  property AsRFC822: string; [r]

  property AsTDateTime: TDateTime; [r]

  property AsTTimeStamp: TIdDateTimeStamp; [r]

  property AsTimeOfDay: string; [r]

  property BeatOfDay: Integer; [r]

  property Day: Integer; [rw]

  property DaysInYear: Integer; [r]

  property DayOfMonth: Integer; [r]

  property DayOfWeek: Integer; [r]

  property DayOfWeekName: string; [r]

  property DayOfWeekShortName: string; [r]

  property HourOf12Day: Integer; [r]

  property HourOf24Day: Integer; [r]

  property IsLeapYear: Boolean; [r]

  property IsMorning: Boolean; [r]

  property Millisecond: Integer; [rw]

  property MinuteOfDay: Integer; [r]

  property MinuteOfHour: Integer; [r]

  property MonthOfYear: Integer; [r]

  property MonthName: string; [r]

  property MonthShortName: string; [r]

  property Second: Integer; [rw]

  property SecondsInYear: Integer; [r]

  property SecondOfMinute: Integer; [r]

  property TimeZone: Integer; [rw]

  property TimeZoneHour: Integer; [r]

  property TimeZoneMinutes: Integer; [r]

  property TimeZoneAsString: string; [r]

  property Year: Integer; [rw]

  property WeekOfYear: Integer; [r]

end;

TIdDateTimeStamp

TIdBaseComponent

TIdInitializerComponent

TObject