Extraer el nombre del mes de una fecha

[JODELSA]

Hola!

Cual es la funcion que me extrae el nombre del mes de una fecha, y en que unidad estas?.

gracias.

[vtdeleon]

Saludos

Creo que usando la funcion FormatDateTime lo puedes hacer

Código Delphi [-]
 edit1.text:=FormatDateTime('MMMM',now);

Esta en la unidad SysUtils en Delphi 7

[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.

[jachguate]

Solo aclarar que LongMonthNames no es una función, es una variable de tipo Array of string declarada en SysUtils.

hasta luego.

[Delfino]

Tambien la funcion MonthOf(datetime) en la unidad DateUtils..