Extraer el nombre del mes de una fecha

[Nelson Polanco]

Saludos.

Para encontrar el nombre del mes puedes usar este codigo.

procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
dias,mes,ano : Integer;
begin
Present:= Now; //Es la fecha actual del sistema
DecodeDate(Present, Year, Month, Day); //Funcion para decodificar la fecha
dias:= Day; //Para asignar el numero del dia
mes := Month;
ano := Year;
ShowMessage('El mes actual es: ' + LongMonthNames[mes]); //Nomre Largo del mes
// ShowMessage(ShortMonthNames[mes]); //Corto
end;

La funcion LongMonthNames es la clave.

Suerte.

Ing. Nelson Polanco
Rep. Dom.