来vb版我告诉你

我告诉你,别去vb版
DEFLNG A-Z
FUNCTION week% (d$)
y = VAL(MID$(d$, 7, 4))
m = VAL(d$)
d = VAL(MID$(d$, 4, 2))
r = ((y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0))
y = y - 1
day&=(y*365+y\4-y\100+y\400+VAL(MID$("    0 31 59 90120151181212243273304334",m*3,3))+r*(m>2)+d)
week% = day& MOD 7
END FUNCTION

哈哈哈哈
我记得副版主说过的：有了简便，就………………
似乎在这个问题上，正好vb比qb好用一点。

哈哈哈哈