1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
' ********************************************************************* '* испытание 4 '********************************************************************* Если (год (CWIntroDate) > год, то (ClientIntroDate)) После этого 'И (год (CWIntroDate) < год (ClientTermDate)) Счетчик = встречное + 1 Закончитесь если Если (, то (CDate (год (CWIntroDate))) < CDate (год (ClientTermDate))) После этого 'И Счетчик = встречное + 1 Закончитесь если