Вопрос : продолжающая погрешность: вы вписали выражение не имеет никакое значение

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:

Public (ClientValueIn вариант как, CWValueIn как вариант, испытание как шнур, опционный CWValue2 как вариант, опционное CWValue3 как вариант) как вариант

Тусклое Veh как корабль
Тусклый результат как вариант

Установите Veh = новый корабль

Если IsNull (CWValueIn) или IsNull (ClientValueIn) после этого
CreateTestClass = 0
Выходите функция
Еще


Выберите испытание случая

    Покрывайте «BHP»
        Результат = Veh.BhpRank (ClientValueIn, CWValueIn)

    Случай «KW»
        Результат = Veh.KWRank (ClientValueIn, CWValueIn)

    Случай «характер»
        Результат = Veh.CharacterRank (ClientValueIn, CWValueIn)

    Случай «KWStr»
        Результат = Veh.KWStrRank (ClientValueIn, CWValueIn)

    Случай «BPStrRank»
        Результат = Veh.BhpStrRank (ClientValueIn, CWValueIn)

    Случай «двигатель»
        Результат = Veh.EngineRank (ClientValueIn, CWValueIn)

    Случай «CC»
        Результат = Veh.CCRank (ClientValueIn, CWValueIn)

    Случай «топливо»
        Результат = Veh.FuelRank (ClientValueIn, CWValueIn)

    Случай «NomStr»
        Результат = Veh.NomStrRank (ClientValueIn, CWValueIn)
        
'Случай «Nom»
'Результат = Veh.NomRank (ClientValueIn, CWValueIn)

    Случай «GetstrNom»
        Результат = Veh.GetStrNomCC (ClientValueIn)
        
    Случай «GetstrNomRev»
        Результат = Veh.StrNomReverseRank (ClientValueIn, CWValueIn)
        
    Случай «GetValvesStr»
        Результат = Veh.GetStrValves (ClientValueIn)
    Случай «NomCalc»
    
        Результат = Veh.NomCalcRank (ClientValueIn, CWValueIn)

    Случай «двери»
        Результат = Veh.DoorRank (ClientValueIn, CWValueIn)

    Случай «клапаны»
        Результат = Veh.ValveRank (ClientValueIn, CLng (CWValueIn), CWValue2)
    
    Случай «ValvesRev»
        Результат = Veh.ValveReverseRank (ClientValueIn, CWValueIn)
        
    Случай «привод»
        Результат = Veh.GetDrive (ClientValueIn)
        
    Случай «DriveRev»
        Результат = Veh.DriveReverseRank (ClientValueIn, CWValueIn)
        
    Случай «ключевые слова»
        Результат = Veh.KeywordsRank (ClientValueIn, CWValueIn)
        
    Случай «модель»
        Результат = Veh.ModelRank (ClientValueIn, CWValueIn)
    Случай «дата»
       
        
        
        
        
        
        
        
        
        
        
        
        
        
        Результат = Veh.DateRank (ClientValueIn, CWValueIn, CWValue2, CWValue3)
        
Конец отборный
Закончитесь если
CreateTestClass = результат

Функция конца

'функция daterank

Общественная функция DateRank (ClientIntroDateIn вариант как, CWIntroDateIn как вариант, опционный ClientTermdateIn вариант как, опционное CWTermdateIn как вариант) как интежер

Тусклое CWIntroDate как дата
Тусклое ClientIntroDate как дата
Тусклое CWTermDate как дата
Тусклое ClientTermDate как дата
Тусклый счетчик как интежер
Тусклое ClientTermDateAvailable как булевско
Тусклое CWTermDateAvailable как булевско
Тусклое ClientintroDateAvailable как булевско
Тусклое CWintroDateAvailable как булевско
Тусклое AllTerminationDatesAvailable как булевско
Тусклое AllintroDatesAvailable как булевско
Тусклое AllDatesAvailable как булевско
Тусклое IntroYearPass как булевско
Тусклое TermYearPass как булевско
Тусклое VarianceIntroYear как интежер
Тусклое VarianceTermYear как интежер
Тусклое LifeCycleExpired как интежер
Тусклое RemainingLifeCycle как интежер
Тусклое LifeCycleYears как интежер



функция конца