VB如何在今年的周六和周日出现?

2019-04-11 18:26栏目:外围投注365

你周六和周日有什么功能?
或者决策方法不会做任何OptionExplicit
PrivateSubCommand1_Click()DimstrStartDayAsStringDimstrTodayAs在工作场所工作时加载。
)AchtstrToday“;星期六”ElseIfintWeekDay = 1 ThenList1。
От从“Sunday”EndIfNextintPEndSub转发了此帖
星期六和星期日流通,一周的星期日是5天的间隔。
截止日期为星期六365天/ 366天,52周和54天。
找到第一个星期六(开始日期后的7天内)。之后,从第6周(星期日)开始,每隔5天就没有结束。
VBcodeDimStartDayAsStringDimdateStartDayAsDate,dateEndDayAsDateDimiAsDateStartDay =“2012-1-1”dateStartDay =组更改的百分比。)= 7ThenExitForNextidateStartDay = dateStartDay + iFori = dateStartDayTodateEnd
Printi,星期几(i)i = i + 1调试。
Printi,星期几(i)i = i + 5 Nexti