怎么判断今天是星期几

如何判断今天是星期几
例如今天星期一，则显示“今天星期一”
这个程序该怎么写啊。


[解决办法]
Edit1-> Text = "今天 " + FormatDateTime( "dddd ",Now());
[解决办法]
switch ( DateTimePicker1-> Date.DayOfWeek() )
{
case 1:
{
Edit1-> Text = "星期日 ";
};break;

case 2:
{
Edit1-> Text = "星期一 ";
};break;

default:
;
}