189 8069 5689
算法如下：
创新互联从2013年开始，是专业互联网技术服务公司，拥有项目网站制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元张家川回族自治做网站,已为上家服务,为张家川回族自治各地企业和个人服务,联系电话:18980820575
基姆拉尔森计算公式(C++与VB.Net整数除法和取余运算符不同)
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)%7 //C++计算公式
W = (D + 2 * M + 3 * (M + 1) \ 5 + Y + Y \ 4 - Y \ 100 + Y \ 400) Mod 7 'VB.Net计算公式
在公式中d表示日期中的日数，m表示月份数，y表示年数。
注意：在公式中有个与其他公式不同的地方：
把一月和二月看成是上一年的十三月和十四月，例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。
好吧，我承认，我没见过。不过不排除是用VB.NET所写的插件。因为VB6是不支持运算符重载的。既然能够自定义运算符，那肯定是跟插件有关。或许他是用宏，或者其他什么东西完成的。。。我没看见过，所以不敢妄下结论。希望你能把这个文件发到我的邮箱里。。。。如果有的话。。。。我邮箱xtnxing@sina.com，可以研究研究。
求余函数是MOD(number,divisor)，其中number为被除数，divisor为除数，返回值为余数，divisor不能为0
这个函数的计算过程如下
首先将number与divisor相除后结果取整，再用number减去取整后的数即为余数
自定义一个函数，功能与mod一样:
Private
Function
DimMod(n
As
Integer,
d
As
Integer)
As
Integer
DimMod
=
n
-
d
*
Int(n
/
d)
End
Function
在VB中，取模运算与求余运算是等价的，所以求余运算符就是Mod。
例：使用MOD函数：5 mod 4得到的结果就是余数。
一、vb算术运算符 ：
^ 运算符
* 运算符
/ 运算符
\ 运算符
Mod 运算符
+ 运算符
- 运算符
二、vb连接运算符：
运算符
+ 运算符
Asc函数
三、转换函数
CBool函数
CByte函数
CCur函数
CDate函数
CDec函数
CDbl函数
Chr 函数
CInt 函数
CLng 函数
CSng 函数
CStr 函数
CVar 函数
CVErr 函数
Format 函数
Hex 函数
Oct 函数
Str 函数
Val 函数
四、数学函数
Abs 函数
Atn 函数
Cos 函数
Exp 函数
Fix 函数
Int 函数
Log 函数
Rnd 函数
Sgn 函数
Sin 函数
Sqr 函数
Tan 函数
五、逻辑运算符
And 运算符
Eqv 运算符
Imp 运算符
Not 运算符
Or 运算符
Xor 运算符
VB中通过Mod方式求余比如：Dim r as Integer '定义一个整型变量r
r = 50 Mod 4 '求50除以4的
余数
，赋值给变量r补充：VB中取余
运算符
是Mod
这里要注意5.5\2.5的值，根据上面说的应该是6\3=2，但事实上结果是3，这是正确的，因为2.5四舍五入后的结果应该是2，而不是3，也可以用VB另外的函数Round来验证，即Round(2.5)=2，更一般的，计算机中对于四舍五入的定义（一些语言的Math库不在范围内）是1-4舍去小数，6-9舍去小数并进一，5的话返回最接近的偶数，也就是说Round(10.5)=10，而Round(9.5)=10，这是金融学上的要求，做到真正的概率对等