Список проголосовавших за комментарий "ES1667, <br/> 1) Если комиссы фиксированные (в рублях), то их надо вычитать непосредственно из счета. Вот так: s=s(1+share*x)-comiss. <br/> 2) Если комиссы в процентах, то применима моя формула, где М=К-Т.<br/> 3) Еще раз, Т--это средняя сделка трейдера в %. Я ее не могу знать для вас. У меня для разных систем она варьируется от единиц до сотых долей процента. <br/> 4) Из другой оперы. Хочу, чтобы некий код (Account) исполнялся один раз в час в течение недели. Вот код:<br/> <br/> Sub Start_System()<br/> <br/> Dim T, Delta As Date<br/> Dim i As Integer<br/> T = Now<br/> Delta = 0.04166<br/> <br/> Application.OnTime TimeValue(T + 0.0007), «Account»<br/> For i = 1 To 168<br/> Application.OnTime TimeValue(T + i * Delta), «Account»<br/> Next i<br/> <br/> End Sub<br/> <br/> Кривость задания дельты теперь осознаю. Код работает некорректно. Симптомы: первые сутки после запуска работает, а дальше--нет. С чем это может быть связано?"