用VB 做的一个可以用来查询星期的。输入任何一个日期都可以查询出对应的星期