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.