vb点虐 取余 vbs取余

基姆拉尔森计算公式

基姆拉尔森计算公式如下：

创新互联专注于阿里地区企业网站建设,成都响应式网站建设公司,商城网站建设。阿里地区网站建设公司,为阿里地区等地区提供建站服务。全流程定制网站，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

本公式用来计算指定的年月日是星期几。

算法如下：

基姆拉尔森计算公式 (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 自定义运算符

好吧，我承认，我没见过。不过不排除是用VB.NET所写的插件。因为VB6是不支持运算符重载的。既然能够自定义运算符，那肯定是跟插件有关。或许他是用宏，或者其他什么东西完成的。。。我没看见过，所以不敢妄下结论。希望你能把这个文件发到我的邮箱里。。。。如果有的话。。。。我邮箱xtnxing@sina点抗 ，可以研究研究。

用VB怎么求余数?

VB中通过Mod方式求余比如：Dim r as Integer '定义一个整型变量r

r = 50 Mod 4 '求50除以4的

余数

，赋值给变量r补充：VB中取余

运算符

是Mod

用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！

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 只是一个变量，晕，可以改成别的。