вычитание времени в vb

Question

Я хочу вычесть 18 лет с объекта даты VB.
Вот пример кода:

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