'*********************************************************************
'* Test 4
'*********************************************************************
If (Year(CWIntroDate) > Year(ClientIntroDate)) Then
' And (Year(CWIntroDate) < Year(ClientTermDate))
Counter = Counter + 1
End If
If ((CDate(Year(CWIntroDate))) < CDate(Year(ClientTermDate))) Then
' And
Counter = Counter + 1
End If
|