文档介绍：DimxAsVariant,yAsVariant,zAsInteger,mAsBooleanPrivateSubCommandl_Click()=""=""="""=+"星期五"=+"星期六"=""=""=""===FalseEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase48To57CaseElseKeyAscii=0EndSelectEndSubPrivateSubText3_Change()DimcAsIntegerc=Val()Ifc<=12AndLen(Trim())=()>==，没有这一个月份"=""EndIfEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase48To57CaseElseKeyAscii=0EndSelectEndSubPrivateSubText4_Change()"01","03","05","07","08","10","12"IfVal()<=31AndLen(Trim())=2Thenx=DateSerial(,,)y=Weekday(x)-1SelectCase(y)="星期日"="星期一"="星期二"="星期三"="星期四"="星期五"="星期六"EndSelectElselfVal()>==，没有这一天"=""EndIfCase"04","06","09","11"IfVal()<=30AndLen()=2Thenx=DateSerial(,,)y=Weekday(x)-1SelectCase(y)="星期日"="星期一"="星期二"="星期三"="星期四"="星期五"="星期六"