Fórum Levar somente o mês. #331108

Extraido de um velho programa meu:

type

TyNomeMes = string[9];
TyTabMeses = array[1..12] of TyNomeMes;

var
TabMeses : TyTabMeses = (´JANEIRO´,´FEVEREIRO´,´MARÇO´,´ABRIL´,
´MAIO´,´JUNHO´,´JULHO´,´AGOSTO´,
´SETEMBRO´,´OUTUBRO´,´NOVEMBRO´,´DEZEMBRO´);

Supondo que a data esteja sendo digitada em um DBEdit e o nome do
mês exibido em um TLabel, no evento OnExit do DBEdit teremos:

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
try
Label1.Caption := TabMeses[MonthOf(StrToDate(DBEdit1.Text))];
except
Label1.Caption := ´´;
ShowMessage(´Data Inválida´);
end;
end;

OBS : Tem que dá USES na unit DateUtils.

tente fazer o seguinte:

campodotipostring := formatdatetime(´mmmm´,campodotipodate);