2016海南学术会议:谁能编个能知道某年某月是星期几的程序啊？

这还用编吗？vb里就有现成的函数啊
描述
返回代表一星期中某天的整数。
语法
Weekday(date, [firstdayofweek])
Weekday 函数的语法有以下参数：

参数 描述
date 可以代表日期的任意表达式。如果 date 参数中包含 Null，则返回 Null。
firstdayofweek 指定星期中第一天的常数。如果省略，默认使用 vbSunday。

设置
firstdayofweek 参数有如下设置：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

返回值
Weekday 函数返回如下值：
常数 值 描述
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

说明
下面例子利用 Weekday 函数得到指定日期为星期几:
Dim MyDate, MyWeekDay
MyDate = #October 19, 1962# ' 分派日期。
MyWeekDay = Weekday(MyDate) ' 由于 MyWeekDay 包含 6
' MyDate 代表星期五。

好象就在WORD里面的“插入”“日期与时间”里面就能查到吧

其实原理是这样的:
从公元0年算起 每年的日数MOD7 =1 闰年MOD7 =2
把它们加起来 加到去年为止
然后 把今年以过去的日子数加起来MOD7
.....
总之 核心就是把所有的日子MOD7!