Hi, i made a form where i calculate difference between dates.
..............
Dim tyears As Integer, tmonths As Integer, tdays As Integer
tyears = Year(Me!txtdata1) - Year(Me!txtdata2)
tmonths = Month(Me!txtdata1) - Month(Me!txtdata2)
tdays = Day(Me!txtdata1) - Day(Me!txtdata2)
If tmonths < 0...