Re: Berechnung mit Funktionen
14.08.2002 18:34:59
Matter Rene
Hallo Peterja es sind Fuktionen die Versandkosten aufgrund Entfernung und Gewicht berechnen.Ich habe die hier ein auszug von so einer Funktion:
Function SET_bis_400km_Tarif(Gewicht)
If Gewicht = 0 Then
SET_bis_400km_Tarif = 0
ElseIf Gewicht = blank Then
SET_bis_400km_Tarif = 0
ElseIf Gewicht <= 32 Then
SET_bis_400km_Tarif = 8.44
ElseIf Gewicht <= 83 Then
SET_bis_400km_Tarif = Gewicht * 0.233
ElseIf Gewicht <= 100 Then
SET_bis_400km_Tarif = 20.5
ElseIf Gewicht <= 164 Then
SET_bis_400km_Tarif = Gewicht * 0.205
ElseIf Gewicht <= 200 Then
SET_bis_400km_Tarif = 33.8
ElseIf Gewicht <= 274 Then
SET_bis_400km_Tarif = Gewicht * 0.169
ElseIf Gewicht <= 300 Then
SET_bis_400km_Tarif = 46.5
ElseIf Gewicht <= 359 Then
SET_bis_400km_Tarif = Gewicht * 0.155
ElseIf Gewicht <= 400 Then
SET_bis_400km_Tarif = 56
ElseIf Gewicht <= 429 Then
SET_bis_400km_Tarif = Gewicht * 0.14
ElseIf Gewicht <= 500 Then
SET_bis_400km_Tarif = 63
ElseIf Gewicht <= 749 Then
SET_bis_400km_Tarif = Gewicht * 0.126
ElseIf Gewicht <= 1000 Then
SET_bis_400km_Tarif = 94
ElseIf Gewicht <= 1399 Then
SET_bis_400km_Tarif = Gewicht * 0.094
ElseIf Gewicht <= 1500 Then
SET_bis_400km_Tarif = 133.5
ElseIf Gewicht <= 1849 Then
SET_bis_400km_Tarif = Gewicht * 0.089
ElseIf Gewicht <= 2000 Then
SET_bis_400km_Tarif = 166
ElseIf Gewicht <= 2299 Then
SET_bis_400km_Tarif = Gewicht * 0.083
ElseIf Gewicht <= 2500 Then
SET_bis_400km_Tarif = 190
ElseIf Gewicht <= 2624 Then
SET_bis_400km_Tarif = Gewicht * 0.076
ElseIf Gewicht <= 3000 Then
SET_bis_400km_Tarif = 213
ElseIf Gewicht <= 3199 Then
SET_bis_400km_Tarif = Gewicht * 0.071
ElseIf Gewicht <= 4000 Then
SET_bis_400km_Tarif = 240
ElseIf Gewicht <= 4099 Then
SET_bis_400km_Tarif = Gewicht * 0.06
ElseIf Gewicht <= 5000 Then
SET_bis_400km_Tarif = 260
ElseIf Gewicht <= 5599 Then
SET_bis_400km_Tarif = Gewicht * 0.052
ElseIf Gewicht <= 7000 Then
SET_bis_400km_Tarif = 294
ElseIf Gewicht <= 8999 Then
SET_bis_400km_Tarif = Gewicht * 0.042
ElseIf Gewicht <= 10000 Then
SET_bis_400km_Tarif = 380
ElseIf Gewicht <= 12199 Then
SET_bis_400km_Tarif = Gewicht * 0.038
ElseIf Gewicht <= 15000 Then
SET_bis_400km_Tarif = 465
ElseIf Gewicht <= 17249 Then
SET_bis_400km_Tarif = Gewicht * 0.031
ElseIf Gewicht <= 20000 Then
SET_bis_400km_Tarif = 540
Else
SET_bis_400km_Tarif = Gewicht * 0.027
End If
End Function
Ich sollte nun eine andere Funktion erstellen die zuerst die Postleitzahl überprüft das ergebnis der entsprechenden Distanz
zuordnet um so wieder die dazugehörige Funktion auslöst zum berechnen der Kosten.
Gruss Rene