TGDate

type TGDate = object

  Bitfield0: TGDateBitfield0;

  function new;

  function new_dmy();

  function new_julian();

  procedure add_days();

  procedure add_months();

  procedure add_years();

  procedure clamp();

  procedure clear();

  function compare();

  function copy;

  function days_between();

  procedure free;

  function get_day;

  function get_day_of_year;

  function get_iso8601_week_of_year;

  function get_julian;

  function get_monday_week_of_year;

  function get_month;

  function get_sunday_week_of_year;

  function get_weekday;

  function get_year;

  function is_first_of_month;

  function is_last_of_month;

  procedure order();

  procedure set_day();

  procedure set_dmy();

  procedure set_julian();

  procedure set_month();

  procedure set_parse();

  procedure set_time_t();

  procedure set_year();

  procedure subtract_days();

  procedure subtract_months();

  procedure subtract_years();

  procedure to_struct_tm();

  function valid;

  function get_days_in_month();

  function get_monday_weeks_in_year();

  function get_sunday_weeks_in_year();

  function is_leap_year();

  function strftime();

  function valid_day();

  function valid_dmy();

  function valid_julian();

  function valid_month();

  function valid_weekday();

  function valid_year();

end;

TGDate