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:
6:
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 Funktion CreateTestClass (ClientValueIn so Variante, CWValueIn wie Variante, Test als Schnur, wahlweise freigestellte CWValue2 so Variante, wahlweise freigestelltes CWValue3 wie Variante) als Variante
Schwaches Veh als Träger
Schwaches Resultat als Variante
Veh einstellen = neuer Träger
Wenn IsNull (CWValueIn) oder IsNull (ClientValueIn) dann
CreateTestClass = 0
Funktion herausnehmen
Sonst
Falltest vorwählen
„BHP“ umkleiden
Resultat = Veh.BhpRank (ClientValueIn, CWValueIn)
Fall „Kilowatt“
Resultat = Veh.KWRank (ClientValueIn, CWValueIn)
Fall „Buchstabe“
Resultat = Veh.CharacterRank (ClientValueIn, CWValueIn)
Fall „KWStr“
Resultat = Veh.KWStrRank (ClientValueIn, CWValueIn)
Fall „BPStrRank“
Resultat = Veh.BhpStrRank (ClientValueIn, CWValueIn)
Fall „Maschine“
Resultat = Veh.EngineRank (ClientValueIn, CWValueIn)
Fall „cm“
Resultat = Veh.CCRank (ClientValueIn, CWValueIn)
Fall „Kraftstoff“
Resultat = Veh.FuelRank (ClientValueIn, CWValueIn)
Fall „NomStr“
Resultat = Veh.NomStrRank (ClientValueIn, CWValueIn)
'Fall „Nom“
'Resultat = Veh.NomRank (ClientValueIn, CWValueIn)
Fall „GetstrNom“
Resultat = Veh.GetStrNomCC (ClientValueIn)
Fall „GetstrNomRev“
Resultat = Veh.StrNomReverseRank (ClientValueIn, CWValueIn)
Fall „GetValvesStr“
Resultat = Veh.GetStrValves (ClientValueIn)
Fall „NomCalc“
Resultat = Veh.NomCalcRank (ClientValueIn, CWValueIn)
Fall „Türen“
Resultat = Veh.DoorRank (ClientValueIn, CWValueIn)
Fall „Ventile“
Resultat = Veh.ValveRank (ClientValueIn, CLng (CWValueIn), CWValue2)
Fall „ValvesRev“
Resultat = Veh.ValveReverseRank (ClientValueIn, CWValueIn)
Fall „Antrieb“
Resultat = Veh.GetDrive (ClientValueIn)
Fall „DriveRev“
Resultat = Veh.DriveReverseRank (ClientValueIn, CWValueIn)
Fall „Schlüsselwörter“
Resultat = Veh.KeywordsRank (ClientValueIn, CWValueIn)
Fall „Modell“
Resultat = Veh.ModelRank (ClientValueIn, CWValueIn)
Fall „Datum“
Resultat = Veh.DateRank (ClientValueIn, CWValueIn, CWValue2, CWValue3)
Ende auserwählt
Beenden wenn
CreateTestClass = Resultat
Enden-Funktion
'daterank Funktion
Allgemeine Funktion DateRank (ClientIntroDateIn so Variante, CWIntroDateIn wie Variante, wahlweise freigestellte ClientTermdateIn so Variante, wahlweise freigestelltes CWTermdateIn wie Variante) als ganze Zahl
Schwaches CWIntroDate als Datum
Schwaches ClientIntroDate als Datum
Schwaches CWTermDate als Datum
Schwaches ClientTermDate als Datum
Schwacher Kostenzähler als ganze Zahl
Schwaches ClientTermDateAvailable, wie Boolesch
Schwaches CWTermDateAvailable, wie Boolesch
Schwaches ClientintroDateAvailable, wie Boolesch
Schwaches CWintroDateAvailable, wie Boolesch
Schwaches AllTerminationDatesAvailable, wie Boolesch
Schwaches AllintroDatesAvailable, wie Boolesch
Schwaches AllDatesAvailable, wie Boolesch
Schwaches IntroYearPass, wie Boolesch
Schwaches TermYearPass, wie Boolesch
Schwaches VarianceIntroYear als ganze Zahl
Schwaches VarianceTermYear als ganze Zahl
Schwaches LifeCycleExpired als ganze Zahl
Schwaches RemainingLifeCycle als ganze Zahl
Schwaches LifeCycleYears als ganze Zahl
Endenfunktion
|