vb6错误380 Datepicker，仅在某些日期出现爆炸

Question

我在vb6上遇到了一个关于日期选择器的问题，但是这个问题发生在某些日期，例如2017年1月31日，但是在其他日期它运行正常。

我很感激帮助

Answer 1

这几乎肯定与您在控件中设置日期的方式有关。

例如，如果控件的值是任何月份，但没有31天，那么您将得到该错误。试图将控件设置为31/02/2017将导致错误380。

您可以采取两种方法来解决此问题。

1. 撤消您设置日期组件的顺序。

   dtFecha.Year = Year(fcsAux.Fields("xf3ch4"))
   dtFecha.Month = Month(fcsAux.Fields("xf3ch4"))
   dtFecha.Day = Day(fcsAux.Fields("xf3ch4"))
   

2. 设置Value属性而不是日期组件。 dtFecha.Value = "31/02/2017"

   dtFecha.Value = rcsAux.Fields("xf3ch4").Value
   

第一种方法确保月份始终适合当天。第二种方法一次性设定整个值，应该是有效的日期。