主题：求助，为什么只有生成翟景明的考核表时会提示这个啊？

提示如图所示， 
此主题相关图片如下：1.png

代码太长,不好判断.

 上传可以测试的代码。

For Each ary As String() In arys

        str &= format(cDate(ary(1)), "HH:mm") & "-" & format(cDate(ary(2)), "HH:mm") & ary(0) & ";"

 Next

红色部分应如何修改？

str &= format(cDate(ary(1)), "HH:mm") & "-" & format(cDate(ary(2)), "HH:mm") & ary(0) & ";"

 

改成

 

Dim d1, d2, d3 As Date
'Date.TryParse(ary(0),d1)
Date.TryParse(ary(1),d2)
Date.TryParse(ary(2),d3)
str &= format(d2, "HH:mm") & "-" & format(d3, "HH:mm") & ary(0) & ";"

这段代码只有在生成“翟景明”的考核表时才会提示转换错误，在生成别人的考核表时是正确的，是代码错误吗？

 当 ary(1) ary(2) 是空值的时候，字符串就不能转成日期。

 

 你那两列，最好改成日期列，那代码就不会出错。

那两列都是日期列

用5楼代码

谢谢，发现有一个是空值。