Member 14588284 Ответов: 2

Рассчитать кратную скидку

Привет У меня есть проблема с dıscount
в текстовом поле dıscount запись 5+5+5
Мануэль подсчитал, что это =14,2625

как я могу рассчитать это в vbnet

Что я уже пробовал:

Дим иск в десятичной = 0
Dim y = 1
Dim x = строки.Split(GID_ISK.Text, "+")
Для i = LBound(x, 1) To UBound(x, 1)
y = y * (1 - x(i) / 100)
Следующий
ISK = 100 * (1 - y)

2 Ответов

Рейтинг:
1

OriginalGriff

Попробовать это:

Public Sub Testy()
    Dim ISK As Decimal = 0D
    Dim y As Decimal = 1D
    Dim x As String() = "5+5+5".Split("+"c)

    For Each s As String In x
        Dim discount As Decimal

        If Decimal.TryParse(s, discount) Then
            y = y * (1 - discount / 100D)
        End If
    Next

    ISK = 100 * (1 - y)
End Sub

Member 14588284

Спасибо за ответ :)
можем ли мы изменить эти коды как функцию?

OriginalGriff

Да, если хочешь ...

Member 14588284

Как я могу это сделать?

OriginalGriff

Если ты будешь кричать на меня, я перестану с тобой разговаривать.

Рейтинг:
0

Member 14588284

Dim ISK As Double = 0
Dim y как Double = 1
Dim x = строки.Split(GID_ISK.Text, "+")
Для i = LBound(x, 1) To UBound(x, 1)
y = y * (1 - x(i) / 100)

Следующий
ISK = 100 * (1 - y)

я решил эту проблему