可以用weekday函数
例如：2017.8.2-2017.8.5
for i=0 to DateDiff("d", CDate("2017-08-02"), CDate("2017-08-05"))
select case weekday（dateadd("d",CDate("2017-08-02") ,i)）
case 1
print "周日“
case 2
print "周一“
case 3
print "周二“
case 4
print "周三“
case 5
print "周四“
case 6
print "周五“
case 7
print "周六“
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024