[mrnooo2000]

كود بشكل أبسط 

كود :

       Dim Years As Integer = 23 \ 12
       Dim Months As Integer = 23 Mod 12
       Dim Monthsdif As Integer = DateDiff("m", Today.Date, New Date(2030, 6, 1))