Foros Club Delphi - Ver Mensaje Individual

[Caral] · #4 02-10-2010

Hola
Dia, mes y año:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
  ShortDateFormat := 'dd" de "mmmm" de "yyyy';
  Edit1.Text:= DateToStr(Date);
end;

Mes:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
  ShortDateFormat := 'mmmm';
  Edit1.Text:= DateToStr(Date);
end;

Saludos