ник: joka
решил проблему так
на свойстве выход из фокуса поля со вторым временем выполняется код
Private Sub поле2_LostFocus()
Dim wt_start As Date
Dim wt_end As Date
Dim full As Date
Dim one As Date
wt_start = поле1
wt_end = поле2
If (wt_start > wt_end) Then
full = #11:59:00 PM#
one = #12:01:00 AM#
поле3 = full - wt_start + one + wt_end
Else
поле3 = wt_end - wt_start
End If
End Sub