减去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