Formatar data no listbox

Delphi

28/10/2013

Ola,

Tenho um LISTBOX que exibe os campos NASCIMENTO e NOME cfe. o codigo abaixo, como faço para que o campo nascimento seja exibido com a data no formato dia e mes por extenso e sem o ano, exemplo: 22 de outubro?

while not QryAniv.eof do
begin
ListBox2.Items.Add(Qryaniv.Fields[0].value);
ListBox2.Items.Add(Qryaniv.Fields[1].value);
Qryaniv.next;
end;

Grato

Luiz Carlos
Luiz Carlos

Luiz Carlos

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

28/10/2013

Luiz, segue abaixo um exemplo. Basta você adaptar ao seu sistema.

var
  Mes: string;
  Year, Month, Day: Word;
begin
   DecodeDate(Date, Year , Month, Day);
   case Month of
     1 : Mes := 'Janeiro';
     2 : Mes := 'Fevereiro';
     3 : Mes := 'Março';
     4 : Mes := 'Abril';
     5 : Mes := 'Maio';
     6 : Mes := 'Junho';
     7 : Mes := 'Julho';
     8 : Mes := 'Agosto';
     9 : Mes := 'Setembro';
    10 : Mes := 'Outubro';
    11 : Mes := 'Novembro';
    12 : Mes := 'Dezembro';
   end;

   ShowMessage(Mes + ' de ' + IntToStr(Year));


Att,

Marcos
GOSTEI 0
POSTAR