Frage : 10% von der area per informazioni subtrahieren

hallo,
habe ich einen Knopf, die, wenn sie Änderungen die Hintergrundfarbe, ich betätigt, auch sie 10% von der Gesamtmenge einer area per informazioni abziehen wünschen, dann, wenn sie angeklickt, die Farbe zurück ändern und das 10% wieder anwenden. ….  Der Code ist bis jetzt:

wenn percent10.BackColor = Color.LightGray Then
percent10.BackColor = Color.Red
discountlabel. Text = „10% Diskont angewendetes "
lbltotal. Text = Format (Val (lbltotal. Text)/10, „0.00“)
Else

percent10.BackColor = Color.LightGray
discountlabel. Text = ""
lbltotal. Text = Format (Val (lbltotal. Text) * 0.1, „0.00“)
Ende If

This gibt einige merkwürdige Resultate zwar und ich kann nicht ausarbeiten, wo ich falsch gehe.  Kann jemand helfen?

Thanks

Antwort : 10% von der area per informazioni subtrahieren

ein 10% Diskont ist NICHT, was Sie erhalten, wenn Sie durch 10. teilen.  Eher ist ein 10% Diskont der ursprüngliche Wert MINUS10%of, der ursprünglicher Wert

Diskont = 0.1* OriginalValue
DiscountedValue = OriginalValue - Diskont

dann die Rückseite des ursprünglichen Wertes wieder zu erhalten, hinzufügen Sie den Diskont dem DiscountedValue en:

OriginalValue = DiscountedValue + Diskont