Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var MiDia:Integer; begin MiDia:=DayOfWeek(Date); ShowMessage(IntToStr(MiDia)); end;
procedure TForm1.Button1Click(Sender: TObject); var MiDia:Integer; begin MiDia:=DayOfWeek(Date); ShowMessage(IntToStr(MiDia)); end;