189 8069 5689
基姆拉尔森计算公式如下：
创新互联专注于阿里地区企业网站建设,成都响应式网站建设公司,商城网站建设。阿里地区网站建设公司,为阿里地区等地区提供建站服务。全流程定制网站，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
本公式用来计算指定的年月日是星期几。
算法如下：
基姆拉尔森计算公式 (C++与VB.Net整数除法和取余运算符不同)。
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1)%7 //C++计算公式。
W = (D + 2 * M + 3 * (M + 1) \ 5 + Y + Y \ 4 - Y \ 100 + Y \ 400+1) Mod 7 'VB.Net计算公式。
在公式中d表示日期中的日数，m表示月份数，y表示年数。
w表示星期，w的取值范围是0~6，0代表星期日，1~6星期一到星期六。
注意：在公式中有个与其他公式不同的地方：
把一月和二月看成是上一年的十三月和十四月，例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。
基姆拉尔森计算公式外文名是Kim larsen calculation formula。
预备知识：同余。
同余是指余数相同的数，比如8和15除以7都余1，所以8和15模7同余，为了方便后面都是指模7同余。
两数相加的同余，等于同余的数相加，8 + 15 = 1 + 1 = 2， 即8+15与2同余。减法相似。
两数相乘的同余，等于同余的数相乘，8 * 15 = 1 * 1 = 1，即8 * 15 与 1同余。
注意有理数除法并不成立。我们引入整除，只取整数的商。同余成立，15/8 = 1/1 = 1。
好吧，我承认，我没见过。不过不排除是用VB.NET所写的插件。因为VB6是不支持运算符重载的。既然能够自定义运算符，那肯定是跟插件有关。或许他是用宏，或者其他什么东西完成的。。。我没看见过，所以不敢妄下结论。希望你能把这个文件发到我的邮箱里。。。。如果有的话。。。。我邮箱xtnxing@sina点抗 ，可以研究研究。
VB中通过Mod方式求余比如：Dim r as Integer '定义一个整型变量r
r = 50 Mod 4 '求50除以4的
余数
，赋值给变量r补充：VB中取余
运算符
是Mod
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇数和为：" sSum,"提示"
==========================================
Sum 是关键字，是个系统函数
sSum 只是一个变量，晕，可以改成别的。