|
задача из VBA сделанная в Java Script
Я новичок в Java Script.Подскажите пожалуйста как записать задачу из VBA в Java Script.
Private Sub CmdРасчет_Click()
'Объявление локальных переменных
Dim IntKolichestvo, IntI As Integer
Dim StrSoobschenie, StrSoobschenie2, StrVid, StrText As String
Dim SngSk1 As Single, SngSk2 As Single
CurStoimost = 0 'Подготовка к накоплению стоимости
IntI = 0
Do 'Начало тела цикла
IntI = IntI + 1
1: StrText = InputBox("Введите количество " & _
Format(IntI, "# ##0") & "-го товара", "ГиперМаркет Таргет")
If StrText = "" Then
MsgBox "Это неверно.Повторите пожалуйста попытку!!!"
GoTo 1
Else:
IntKolichestvo = CInt(StrText)
End If
2: StrText = InputBox("Введите цену " & Format(IntI, "# ##0 ") & _
"-го товара", "ГиперМаркет Таргет")
If StrText = "" Then
MsgBox "Вы снова ошиблись.Повторите попытку!!!"
GoTo 2
Else:
CurZena = CCur(StrText)
End If
CurStoimost = CurStoimost + CurZena * IntKolichestvo
3: If CurStoimost >= 150 Then
SngSk1 = CurStoimost - CurStoimost * 0.1
Else:
SngSk1 = CurStoimost
End If
4: If OptНаличные.Value = True Then
SngSk2 = CurStoimost
Else:
SngSk2 = CurStoimost + CurStoimost * 0.05
End If
CurStoimost2 = CurStoimost + (1 - (SngSk1 + SngSk2) / 100)
Loop While MsgBox("Хотели бы вы что-нибудь еще? ", vbQuestion + vbYesNoCancel, _
"ГиперМаркет Рост") = vbYes
' Завершение цикла при ответе "Нет"
TxtОплата.Text = Format(CurStoimost2, "# ##0.00")
' Нужно обеспечить согласование в предложениях
Select Case IntI
Case 1: StrVid = " вид товара"
Case 2, 3, 4: StrVid = " вида товара"
Case Else: StrVid = " видов товаров"
End Select
'Вывод результатов
StrSoobschenie = "Вы приобрели " & IntI & " " & StrVid & _
" на общую сумму " & _
Format(CurStoimost2, "# ##0.00") & " гривень." & " " & "Приходите к нам снова!!!"
LblРезультат.Caption = StrSoobschenie
End Sub
'Подготовка рабочего места к работе со следующим покупателем
Private Sub CmdСброс_Click()
LblРезультат.Caption = Empty
TxtНаличные.Text = Empty
TxtОплата.Text = Empty
TxtСдача.Text = Empty
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TxtНаличные_Exit(ByVal Cancel As _
MSForms.ReturnBoolean)
'Объявление локальных переменных
Dim StrSoobschenie2 As String
'Расчет сдачи
CurNalich = CCur(TxtНаличные.Text)
CurSdacha = CurNalich - CurStoimost2
If CurSdacha < 0 Then
TxtНаличные.BackColor = vbRed
StrSoobschenie2 = "Вы недоплатили! "
Lb2Результат.Caption = StrSoobschenie2
Else:
TxtНаличные.BackColor = vbWhite
End If
TxtСдача.Text = Format(CurSdacha, "# ##0.00")
End Sub
Private Sub UserForm_Click()
End Sub
|
