I use the following VB code in an InfoPath project to count the difference in weeks.
TextBox1.Text = "Weeks from today: " & DateDiff("w", date1.Text, date2.Text)
You should be able to change the "w" to "y". Of course I don't have the InfoPath objects referenced in this example.