请教moz老师：
FUNCTION week% (d$)
y = VAL(MID$(d$, 7, 4))
m = VAL(d$)
d = VAL(MID$(d$, 4, 2))
这几句中都涉及字符串d$，可是字符串d$的表达式又在哪儿呢？我怎么找不到呢？请赐教。

d$ 是形参，实参在WEEK%（)函数的括号里。只要类型相同即可

对不起moz，您太忙了，这个问题我替你回答了。不好意思呵

拜托,你都一把年纪了,别再叫我老师了,
我虽然也曾有过当老师的机会,
可我的确没当过真正的教师,以后请别再这样叫了.

d$ 是与QB系统中date$同类型的字符串,
"mm-dd-yyyy"
函数里并没有特意检查其格式
省略了排错语句.

原来如此，谢谢各位！能者为师，三人行，必有我师。你要是实在不愿意让人称老师，那我只好在心里叫了。
我觉得在论坛上也应该有一个良好的风气，别动不动挖苦、嘲笑、打击别人，这样不好。

惭愧惭愧
失礼失礼
恕罪恕罪

//file:date.h
#include<iostream.h>
class date
{
public:
    date(){year=month=day=leapyear=pastdays=week=-1;};
    date(int y,int m,int d);
    int getweek(){return week;};
    friend bool operator<(date& dt1,date& dt2);
    friend long leapyearsbetween(date dt1,date dt2);
    friend ostream& operator<<(ostream& out,date& dt);
    friend long operator-(date dt1,date dt2);
    date& operator+=(int days);
protected:
    int year,month,day;
    int leapyear,pastdays,week;
};

//file:date.cpp
#include<iomanip.h>
#include "date.h"
date::date(int y,int m,int d)
{
    static int
        r1[13]={0,31,28,31,30,31,30,31,31,30,31,30,31},
        r2[13]={0,0,3,3,6,1,4,6,2,5,0,3,5},
        r3[13]={0,0,31,59,90,120,151,181,212,243,273,304,334};
    int c;
    if(y<0||m<1||m>12||d<1)
    {
        cerr<<"Wrong Date!"<<endl;
        year=month=day=leapyear=pastdays=week=-1;
        return;
    }
    if(y%4==0&&y%100!=0||y%400==0)leapyear=1;
    else leapyear=0;
    if(d>r1[m]+(m==2?leapyear:0))
    {
        cerr<<"Wrong Date!"<<endl;
        year=month=day=leapyear=pastdays=week=-1;
        return;
    }
    year=y;month=m;day=d;//日期数据约束条件
    y%=400;
    if(leapyear&&m<3)c=5;
    else c=6;
    week=(y+y/4-y/100+r2[m]+d+c)%7;
    pastdays=r3[m]+d;
    if(leapyear&&m>2)++pastdays;
}
……
算星期容易啊，按我的算法，只要这样就行了：
int week(int y,int m,int d)
{
    static int r[13]={0,0,3,3,6,1,4,6,2,5,0,3,5};
    int c,w;
    y%=400;
    if((y==0||y%4==0&&y%100!=0)&&m<3)c=5;
    else c=6;
    w=(y+y/4-y/100+r[m]+d+c)%7;
    return w;
}

RickOne算星期的原理是一样的.

魔爪就是强啊，佩服佩服