Конференция VBStreets

**Max!** » 24.04.2003 (Чт) 20:08

Как сделать чтобы мая прога добовляла проценты к цене тавара :?:

Help!

**moderator** » 24.04.2003 (Чт) 21:30

Сделать надо руками.

По-подробнее можно? Хоть бы код какой-нибудь привел...

**Max!** » 24.04.2003 (Чт) 21:54

У меня есть 3 TextBox'a txt1-количество txt2-цена кнопка и txt3-твет здесь будет показываться конечной результат . В кнопке я пишу:

Dim sngtxt1 As Single
Dim inttxt2 As Integer, intNum As Integer
sngtxt1 = txt1.Text
inttxt2 = txt2.Text
For intNum = 1 To intNum
Next intNum
txt3.Text = Format(sngtxt1 * inttxt2, "&") 'как что бы в конце прога добавила 18% ???

Я пробовал так
txt3.Text = Format(sngtxt1 * inttxt2 + 18%, "&") 'Но VB автомотически убирает %'ты
Как быть заранее благодарен! :!:

**FaKk2** » 24.04.2003 (Чт) 22:00

Умножай на 0.18 - это одно и тоже.

txt3.Text = Format(sngtxt1 * inttxt2 * 1.18), "&")

Исправил..... :oops:

Кстати, вы наверно заметили этот замечательный глюк!:
вместо один.восемнадцать, показывается смайлик... :lol:

**Max!** » 24.04.2003 (Чт) 22:20

Спасибо!

**jetcom** » 25.04.2003 (Пт) 0:44

2FAKK2: Чтобы добавить 18% нужно умножать не на 0.18, а на 1.18 (В подробности кода не вдавался, заметил это вскользь, так что сорри, если имелось ввиду не то, что я подумал) :wink:

**FaKk2** » 25.04.2003 (Пт) 0:57

jetcom писал(а):2FAKK2: Чтобы добавить 18% нужно умножать не на 0.18, а на 1.18 (В подробности кода не вдавался, заметил это вскользь, так что сорри, если имелось ввиду не то, что я подумал)

Ты прав,

я хотел исправить но меня отвлекли, и на долго.. :oops:

**Firestorm** » 25.04.2003 (Пт) 4:55

если чё, то % - это chr(37) :lol:

Конференция VBStreets

Проценты

Проценты

Кто сейчас на конференции