TGDateMonth

type TGDateMonth = (

  TGDateMonthMinValue = - $7FFFFFFF,

  G_DATE_BAD_MONTH = 0,

  G_DATE_JANUARY = 1,

  G_DATE_FEBRUARY = 2,

  G_DATE_MARCH = 3,

  G_DATE_APRIL = 4,

  G_DATE_MAY = 5,

  G_DATE_JUNE = 6,

  G_DATE_JULY = 7,

  G_DATE_AUGUST = 8,

  G_DATE_SEPTEMBER = 9,

  G_DATE_OCTOBER = 10,

  G_DATE_NOVEMBER = 11,

  G_DATE_DECEMBER = 12,

  TGDateMonthMaxValue = $7FFFFFFF

);