mes no combobox

Delphi

05/08/2019

preciso que quando abrir um form o combobox venha com o padrão do mes que estamos já.. caos queira alterar eu consigo alterar clicando no botão para selecionar o mes que eu quero, mas quero que venha com o padrão no mes que estamos
como faço?
Beatriz Simão

Beatriz Simão

Curtidas 1

Respostas

Rafael Bosco

Rafael Bosco

05/08/2019

Não sei se você quer o nome por extenso, ou apenas a numeração, ou se quer a numeração com o primeiro dia ou último dia do mês, então vou colocar 2 exemplos pra ti:

Lembrando que é necessário ter a unit System.DateUtils nas suas uses!

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;



Exemplo de utilização:

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;
GOSTEI 0
POSTAR