Создать функцию, позволяющую вычислить новую стоимость товара после уценки. Визуал Бэйсик.

[КПСС]

Нужно лабораторку зделать ,а я въехать не могу!

Вариант1. Создать пользовательскую функцию, позволяющую вычислить новую стоимость товара после уценки. Новая стоимость вычисляется по следующему правилу:
-если с момента товара прошло 1 год и более, то уценить на 40%;
-если с момента товара прошло от 6 месяцев до 1 года, то уценить на 25%;
-если с момента товара прошло не более 6 месяцев , то стоимость
оставить прежнюю.

[SkyM@n]

Тут все просто, только что такое "момент товара"?

[КПСС]

Function Уценка(стоимость, новая)
If год >= 1 Then новая = стоимость / 0.4
If месяц >= 6 And год >= 1 Then новая = стоимость / 0.25
If месяц <= 5 Then стоимость = стоимость
новая = стоимость / 0.4
новая = стоимость / 0 / 25
End Function

Я как тока не пробовал он мне макрос не подключает!

[Карась]

VB6

Option Explicit
Dim x, z, y As Integer

Private Sub Command1_Click()
If God.Value = True Then z = 40
If Mes.Value = True Then z = 25
If MenMes.Value = True Then z = 100
y = PerCena.Text
DvaCena.Text = (y * z) \ 100

End Sub

Разберёшся?

(исходник, ехе)

[КПСС]

Чёт чуток недогнал!
Моно канить объяснить???

[КПСС]

Визуал Бэйсик который в Exelе находиться!
Там надо замутить!
Ну это тож приконо и удобней!
Но всётаки надо в икселе с макросом ...

[КПСС]

Карась!Всё понял!!!!
Спасибо большое!!!!!!!!!!Урааааааааааааа!!!