1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
' ********************************************************************* '* prova 4 '********************************************************************* Se (anno (CWIntroDate) > anno (ClientIntroDate)) Allora 'E (anno (CWIntroDate) < anno (ClientTermDate)) Contatore = contro + 1 Concluder se Se ((CDate (anno (CWIntroDate))) < CDate (anno (ClientTermDate))) Allora 'E Contatore = contro + 1 Concluder se