求VB高手或者精通VBA的高手

来源：百度知道 编辑：UC知道 时间：2024/05/30 11:20:38
int y,m,d; // y:year m:month d ay
int n;
cout<<"请输入日期(yyyy mm dd):"<<endl;
cin>>y>>m>>d;
if (y!=0&&m!=0&&d!=0)
{
if (m<=2)
{
m=m+12;
y=y-1;
}
n=d+2*m+int(0.6*(m+1))+y+(y/4)-(y/100)+(y/400)+2;
n=int((n/7.0-int(n/7))*7+0.5); 这段代码换成VB怎么写～～

switch {
case 0:
cout<<"星期六"<<endl;
break;
case 1:
cout<<"星期天"<<endl;
break;
case 2:
cout<<"星期一"<<endl;
break;
case 3:
cout<<"星期二"<<endl;
break;
case 4:
cout<<"星期三"<<endl;
break;
case 5:
cout<<"星期四"<<endl;
break;
case

这个也太困难了吧，怎么转换啊，根本就转不了

n=d+2*m+int(0.6*(m+1))+y+(y/4)-(y/100)+(y/400)+2;
n=int((n/7.0-int(n/7))*7+0.5); 这段代码换成VB怎么写～～

n=d+2*m+cint(0.6*(m+1))+y+(y/4)-(y/100)+(y/400)+2;
n=cint((n/7.0-int(n/7))*7+0.5);

switch(n) {
case 0:

vb 为：
select n
case 0:
..

vb输入输出 和C++不相同

。。。。强制转换的话，VB是Cint（）。