   Function dAdd(tdate,day)
           dim newdate
		   newdate=dateAdd("d",day,tdate)
           dAdd=newdate&""
       End Function
       
       
       Function WeekdayStr(dateStr)
            dim s,outStr
            s=Weekday(cDate(dateStr))
            
            select Case s
                case "1"
                    outStr="星期天"
                case "2"
                    outStr="星期一"
                case "3"
                    outStr="星期二"
                case "4"
                    outStr="星期三"
                case "5"
                    outStr="星期四"
                case "6"
                    outStr="星期五"
                case "7"
                    outStr="星期六"
            
            end select
            WeekdayStr=outStr
       End Function
       
       
       
       Function DateDel(date1,date2)
              DateDel=cDate(date1)-cDate(date2)
       End Function
       