Fórum mes no combobox #604242

function GetNameOfMonth(const ADate: TDate): UnicodeString;
function GetMonth(const ADate: TDate): Word;

function GetNameOfMonth(const ADate: TDate): UnicodeString;
var
   Month: Word;
begin
   Month := MonthOfTheYear(ADate);

   case Month of
      MonthJanuary:
         Result := 'Janeiro';
      MonthFebruary:
         Result := 'Fevereiro';
      MonthMarch:
         Result := 'Março';
      MonthApril:
         Result := 'Abril';
      MonthMay:
         Result := 'Maio';
      MonthJune:
         Result := 'Junho';
      MonthJuly:
         Result := 'Julho';
      MonthAugust:
         Result := 'Agosto';
      MonthSeptember:
         Result := 'Setembro';
      MonthOctober:
         Result := 'Outubro';
      MonthNovember:
         Result := 'Novembro';
      MonthDecember:
         Result := 'Dezembro';
   end;
end;

function GetMonth(const ADate: TDate): Word;
var
     D, M, Y: Word;
begin
    DecodeDateTime(ADate, Y, M, D);

    Result := M;   // M é o mês da data decodificada
end;

procedure FormShow(Sender: TObject);
var
     Data: TDate;
begin
      Data := Now; // Now obtém a data atual do computador
      ComboBox.Text := GetNameOfMonth(Now);  //Nome do mês em extenso
      ComboBox.Text := GetMonth(Now).ToString; //Apenas o código do mês
end;