VBA为什么我的号码内容传输回旧

Question

如果要将2/6/2019设置为1001，我打算在电子表格中输入一系列数字，这是我日期和儒略历日期的最后一年数以及我的日期数字。

这是我的代码：

AddNew.Offset(m, 4).Value = Right(Year(DTPickerActualHarvestDate), 1) & _
Format(DatePart("y", DTPickerActualHarvestDate), "000") & _
DateValue(DTPickerActualHarvestDate.Value) - 42501

问题是，如果我自己输入DateValue(DTPickerActualHarvestDate.Value) - 42501，它将得出正确的结果，前一部分也是如此。但是，当我将它们放在一起时，最后一部分将再次从数字转换回至今。例如，如果我的日期为2/6/2019，它应该显示为90371001，现在显示为90379/27/1902。我该如何解决？