[JoseFco]

Hola amigos.

Googleando un poco encontre esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var dia:integer;
begin
  dia:=DayOfWeek(date);
case dia of
  1:Showmessage('Domingo');
  2:Showmessage('Lunes');
  3:Showmessage('Martes');
  4:Showmessage('Miércoles');
  5:Showmessage('Jueves');
  6:Showmessage('Viernes');
  7:Showmessage('Sábado');
  else
  Showmessage('Imposible');
  end;
end;

Esto me ayuda a entender algunas de las cosas que estoy estudiando.

Un Saludo.