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