Цитата(tig81 @ 31.5.2009, 13:56)

Правила форума Где ваши наработки?
Sub Процент()
Dim P, S, n, x As Integer
P = InputBox("сумма положенная на счет")
S = InputBox("Сумма счета после исчесления")
n = InputBox("Месяц хронения")
x = ((((P - S) / n) * 100) / 100) / S
MssBox x, ("Процент")
End Sub