Delphi dicas

Utilizando a função dayofweek

//edit1 é a data que o usuário quer identificar



//esse código deve ser colocado no onclick de um tbutton



if (dayofweek(strtodate(edit1.text)))=1 then

showmessage('Esta data cai num domingo')

else if (dayofweek(strtodate(edit1.text)))=7 then

showmessage('Esta data cai num sábado')

else if (dayofweek(strtodate(edit1.text)))=2 then

showmessage('Esta data cai numa segunda')

else if (dayofweek(strtodate(edit1.text)))=3 then

showmessage('Esta data cai num terça')

else if (dayofweek(strtodate(edit1.text)))=4 then

showmessage('Esta data cai num quarta')

else if (dayofweek(strtodate(edit1.text)))=5 then

showmessage('Esta data cai numa quinta')

else if (dayofweek(strtodate(edit1.text)))=6 then

showmessage('Esta data cai numa sexta');

por : Victor Roberto