vb6错误380 Datepicker，只是在某些日期的胸围

问题描述：

我有一个日期选择器在VB6的问题，但这种情况发生在某些日期，例如31/01/2017，但与其他日期，它工作正常。vb6错误380 Datepicker，只是在某些日期的胸围

我感谢帮助

我喜欢这样，你认为我们知道一个19岁的过时产品的所有错误代码，并且不会为我们翻译错误消息。无效的属性值意味着它所说的 - 它可能与正在读取的数据的格式/布局有关。 – Plutonix

Thaks为您的答案，但我必须使用这个过时的产品，因为客户想要继续使用他的旧软件。 im阅读日期的格式与数据阅读器的日期格式相同，仅在日期为31/01/2017时出现错误跳转 –

检查rcsAux.Fields的值（“xf3ch4 “），让我们知道它是什么。 – DaveInCaz

答

这几乎可以肯定有你如何设置在控制权的日期做。

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

有两种方法可以解决此问题。

颠倒你设置日期组件的顺序。

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

设置Value属性，而不是日期组件。 dtFecha.Value = "31/02/2017"
```
dtFecha.Value = rcsAux.Fields("xf3ch4").Value 
```

第一种方法确保了一个月始终是适当的一天。第二种方法将整个值设置为一次，并且应该是有效的日期。

我使用第三方控件，但我相信标准日期选取器控件确实具有mindate和maxdate属性。如果上述不能解决您的问题，我会检查这些设置。 –

非常感谢你，比尔，选项号码1解决了这个问题。 –