VB中通过Mod方式求余比如：Dim r as Integer '定义一个整型变量r
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站设计、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的谢家集网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
r = 50 Mod 4 '求50除以4的
余数
，赋值给变量r补充：VB中取余
运算符
是Mod
好吧，我承认，我没见过。不过不排除是用VB.NET所写的插件。因为VB6是不支持运算符重载的。既然能够自定义运算符，那肯定是跟插件有关。或许他是用宏，或者其他什么东西完成的。。。我没看见过，所以不敢妄下结论。希望你能把这个文件发到我的邮箱里。。。。如果有的话。。。。我邮箱xtnxing@sina.com，可以研究研究。
算法如下：
基姆拉尔森计算公式(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来代入公式计算。