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