Speichern von Werten Registry oder INI-File?
18.11.2004 14:47:51
Bongartz
ich habe mir ein Funktion zur Berechnung von Frachtkosten erstellt.
Die Funktion ist in einem Addin das Automatisch geladen wird (..\Office\Xlstart).
Das Addin ist auf vielen PCs installiert und wird per Loginscript aktualisiert.
Ich möchte eine Userform erstellen, die es den Usern ermöglicht die Angaben für Gewicht und Preis zu ändern.
Dazu müsste ich die Gewichte und Preise in der Registry oder INI-Datei speichern.
Nun meine Probleme:
Wenn ich in der Registry lese und speichere wie werden dann die anderen PCs aktualisiert?
Wenn ich in einer INI Datei lese und speichere könnte ich diese dann per loginscript auf die PCs verteilen. Da beim Excel Start das Addin die Werte aus der INI-Datei lädt wäre das wohl die einfachere Variante.
Wer kann mir sagen mit welcher Lösung ist die Performance am besten?
Gruß
Bongartz
Function FrachtKosten(ByVal lngKG As Double) As Double
Dim lngOutput As Double
If IsNumeric(lngKG) Then
If lngKG <= 28 And lngKG > 0 Then
lngOutput = 25
ElseIf lngKG <= 60 And lngKG > 28 Then
lngOutput = lngKG * 1.8652
ElseIf lngKG <= 100 And lngKG > 60 Then
lngOutput = lngKG * 1.8393
ElseIf lngKG <= 200 And lngKG > 100 Then
lngOutput = lngKG * 1.8134
ElseIf lngKG <= 300 And lngKG > 200 Then
lngOutput = lngKG * 1.7875
ElseIf lngKG <= 500 And lngKG > 300 Then
lngOutput = lngKG * 1.7616
ElseIf lngKG <= 750 And lngKG > 500 Then
lngOutput = lngKG * 1.7357
ElseIf lngKG <= 1000 And lngKG > 750 Then
lngOutput = lngKG * 1.7098
ElseIf lngKG <= 2000 And lngKG > 1000 Then
lngOutput = lngKG * 1.6839
ElseIf lngKG <= 2500 And lngKG > 2000 Then
lngOutput = lngKG * 1.658
ElseIf lngKG <= 5000 And lngKG > 2500 Then
lngOutput = lngKG * 1.6321
ElseIf lngKG <= 7500 And lngKG > 5000 Then
lngOutput = lngKG * 1.6062
ElseIf lngKG <= 20000 And lngKG > 7500 Then
lngOutput = lngKG * 1.5803
Else
lngOutput = 0
End If
FrachtKosten = lngOutput
End If
End Function
Code eingefügt mit Syntaxhighlighter 3.0