减去vb中的时间

Question

我想从VB日期对象中减去18年.
这是代码示例:

Dim someVar
DirectCast(pcontrol, DateTimePicker).Value = Date.Now.Subtract(someVar)

someVar值是？

Answer 1

这看似奇怪,但尝试使用AddYears,但负数:

With DirectCast(pcontrol, DateTimePicker)
  .Value = .Value.AddYears(-18)
End With

或者正如MarkJ指出的那样,试图从现在开始减去它:

With DirectCast(pcontrol, DateTimePicker)
  .Value = Now.AddYears(-18)
End With