Delphi根据日期得到星期几,日期加减推算出计算结果,得到当天是星期几,类似实现了日历查询功能。