Question

VB中如何计算一个日期到另一个日期间分别有哪几个星期

列如：2017.8.2-2017.8.5 中间有4天分别是周三、周四、周五、周六 这样输出到单元格里

Answer 1

可以用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