select case 月
case 1,3,5,7,8,10,12
    31天
case 4,6,9,11
    30天
case 2
    28或29天，在这里可以对年份除以4得出正确天数
end select

如果文件名全是这样的格式：

dim s1 as string,s2 as string

s1="123-200701.txt"
s1=val(split(s1,"-")(1))
s1=format(s1,"####-##")
s2=dateadd("m",1,format(s1,"yyyy-mm"))

debug.print datediff("d",format(s1,"yyyy-mm"),format(s2,"yyyy-mm"))

家人兄这个代码真好，我根本没想到这上面来（我开始的思路也有点类似于1楼的），佩服啊佩服，顶一下！

dateadd
datediff
这两个函数用得好啊