Public Funkcja CreateTestClass (ClientValueIn Jako Wariant, CWValueIn Jako Wariant, test Sznurek, Fakultatywny CWValue2 Jako Wariant, Fakultatywny CWValue3 Jako Wariant) Jako Wariant
Ciemnawy Veh Jako Pojazd
Ćmić Rezultat Jako Wariant
Ustawiać Veh = Nowy Pojazd
Jeżeli IsNull (CWValueIn) Lub IsNull (ClientValueIn) Wtedy
CreateTestClass = (0)
Wyjście Funkcja
Inny
Wybrany Skrzynka test
Skrzynka "BHP"
Rezultat = Veh.BhpRank (ClientValueIn, CWValueIn)
Skrzynka "KW"
Rezultat = Veh.KWRank (ClientValueIn, CWValueIn)
Skrzynka "Charakter"
Rezultat = Veh.CharacterRank (ClientValueIn, CWValueIn)
Skrzynka "KWStr"
Rezultat = Veh.KWStrRank (ClientValueIn, CWValueIn)
Skrzynka "BPStrRank"
Rezultat = Veh.BhpStrRank (ClientValueIn, CWValueIn)
Skrzynka "Silnik"
Rezultat = Veh.EngineRank (ClientValueIn, CWValueIn)
Skrzynka "CC"
Rezultat = Veh.CCRank (ClientValueIn, CWValueIn)
Skrzynka "Paliwo"
Rezultat = Veh.FuelRank (ClientValueIn, CWValueIn)
Skrzynka "NomStr"
Rezultat = Veh.NomStrRank (ClientValueIn, CWValueIn)
'Skrzynka "Nom"
'Rezultat = Veh.NomRank (ClientValueIn, CWValueIn)
Skrzynka "GetstrNom"
Rezultat = Veh.GetStrNomCC (ClientValueIn)
Skrzynka "GetstrNomRev"
Rezultat = Veh.StrNomReverseRank (ClientValueIn, CWValueIn)
Skrzynka "GetValvesStr"
Rezultat = Veh.GetStrValves (ClientValueIn)
Skrzynka "NomCalc"
Rezultat = Veh.NomCalcRank (ClientValueIn, CWValueIn)
Skrzynka "Drzwi"
Rezultat = Veh.DoorRank (ClientValueIn, CWValueIn)
Skrzynka "Klapa"
Rezultat = Veh.ValveRank (ClientValueIn, CLng (CWValueIn), CWValue2)
Skrzynka "ValvesRev"
Rezultat = Veh.ValveReverseRank (ClientValueIn, CWValueIn)
Skrzynka "Przejażdżka"
Rezultat = Veh.GetDrive (ClientValueIn)
Skrzynka "DriveRev"
Rezultat = Veh.DriveReverseRank (ClientValueIn, CWValueIn)
Skrzynka "Słowo kluczowe"
Rezultat = Veh.KeywordsRank (ClientValueIn, CWValueIn)
Skrzynka "Model"
Rezultat = Veh.ModelRank (ClientValueIn, CWValueIn)
Skrzynka "Data"
Rezultat = Veh.DateRank (ClientValueIn, CWValueIn, CWValue2, CWValue3)
Końcówka Wybiórka
Kończyć Jeżeli
CreateTestClass = Rezultat
Końcówka Funkcja
'daterank funkcja
Jawny Funkcja DateRank (ClientIntroDateIn Jako Wariant, CWIntroDateIn Jako Wariant, Fakultatywny ClientTermdateIn Jako Wariant, Fakultatywny CWTermdateIn Jako Wariant) Jako Integer
Ciemnawy CWIntroDate Data
Ciemnawy ClientIntroDate Data
Ciemnawy CWTermDate Data
Ciemnawy ClientTermDate Data
Ćmić Kontuar Jako Integer
Ćmić ClientTermDateAvailable Boolowski
Ćmić CWTermDateAvailable Boolowski
Ćmić ClientintroDateAvailable Boolowski
Ćmić CWintroDateAvailable Boolowski
Ćmić AllTerminationDatesAvailable Boolowski
Ćmić AllintroDatesAvailable Boolowski
Ćmić AllDatesAvailable Boolowski
Ćmić IntroYearPass Boolowski
Ćmić TermYearPass Boolowski
Ćmić VarianceIntroYear Jako Integer
Ćmić VarianceTermYear Jako Integer
Ćmić LifeCycleExpired Jako Integer
Ćmić RemainingLifeCycle Jako Integer
Ćmić LifeCycleYears Jako Integer
kończyć funkcja
|