от тэга Б1 отнимается только 100 едениц (иногда 99). Тэг - значение в поле вывода.
Код: Выделить всё
Dim z
z=SmartTags("Б1")
Do While z>0
z=z-1
SmartTags("Б1")=z
Loop
Код: Выделить всё
Dim z
z=SmartTags("Б1")
Do While z>0
z=z-1
SmartTags("Б1")=z
Loop