把日期按日期+星期几的格式输出
方法1：DatetoStr + DayOfWeek计算 ，这种办法灵活，但计算量大，不再祥叙。
方法2：FormatDateTime
具体代码如下：//这里需要用FormatDateTime，DatetoStr没有这种效果
ShowMessage(FormatDateTime('yyyy-MM-dd(dddd)',Now)); //2017-05-16(星期二) 括号里4个d
ShowMessage(FormatDateTime('yyyy-MM-dd(ddd)',Now));//2017-05-16(周二) 括号里3个d