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.