Hola con la palabra Year -----> se Obtiene el año a partir de una fecha.
restamos solamente el año en la cadena.y con mid solo nos quedamos con los
6 primeros caracteres 12/12/ y le añadimos la resta del año.
a ver si te sirve este ejemplo un command buton y 3 textbox.
Private Sub Form_Load()
Text1.Text = "12/12/2015"
Text2.Text = "15"
Text3.Text = "Pulsa boton para restar"
End Sub
Private Sub Command1_Click()
Dim resta
resta = Mid(Text1.Text, 1, 6) & Year(Text1.Text) - (Text2.Text)
Text3.Text = resta
End Sub
salu2
nota:
tambien esta:
Day Obtiene el día, a partir de una fecha
Month Obtiene el mes a partir de una fecha.