问VBA,如何判断日期

请问大家,如何实现 输入日期,判断是否是星期六,日.

代码要实现: 判断是不是星期六,日.是的话在excel的行上描点.
不是的话填上数据 --------------------编程问答-------------------- 你要设计一个算法，只要逻辑上没错，就可以判断啦 --------------------编程问答-------------------- 基姆拉尔森计算公式 
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7 

在公式中d表示日期中的日数，m表示月份数，y表示年数。 

注意：在公式中有个与其他公式不同的地方： 

把一月和二月看成是上一年的十三月和十四月，例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。 

代码如下： 
//y－年，m－月，d－日期 
string CaculateWeekDay(int y,int m, int d) 
{ 
if(m==1) m=13; 
if(m==2) m=14; 
int week=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)%7; 
string weekstr=""; 
switch(week) 
{ 
case 1: weekstr="星期一"; break; 
case 2: weekstr="星期二"; break; 
case 3: weekstr="星期三"; break; 
case 4: weekstr="星期四"; break; 
case 5: weekstr="星期五"; break; 
case 6: weekstr="星期六"; break; 
case 7: weekstr="星期日"; break; 
} 

return weekstr; 
} 

这样就能算出周六 周日了

补充：.NET技术 ,  VB.NET