试试改成
If d1.Month = 12
If dr("piao号").StartsWith("01")
da = d1.year + 1 & "-" & dr("piao号").Substring( 0, 2) & "-" & dr("piao号").Substring( 2, 2)
msgbox(da)
dr("日期") = Cdate(da)
End If
Else
da = d1.year & "-" & dr("piao号").Substring( 0, 2) & "-" & dr("piao号").Substring( 2, 2)