Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var Fecha:Tdate; begin Fecha:=Date; edit1.text:=FormatDateTime('dd/MMM/yy',fecha); edit2.text:=FormatDateTime('dd/MM/yy',fecha); end;
procedure TForm1.Button1Click(Sender: TObject); var Fecha:Tdate; begin Fecha:=Date; edit1.text:=FormatDateTime('dd/MMM/yy',fecha); edit2.text:=FormatDateTime('dd/MM/yy',fecha); end;