1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
' ********************************************************************* '* teste 4 '********************************************************************* Se (ano (CWIntroDate) > ano (ClientIntroDate)) Então 'E (ano (CWIntroDate) < ano (ClientTermDate)) Contador = + 1 contrário Terminar se Se ((CDate (ano (CWIntroDate))) < CDate (ano (ClientTermDate))) Então 'E Contador = + 1 contrário Terminar se