Курсы валют
<a href="https://www.instaforex.com/ru/" target="blank">ИнстаФорекс портал"</a>
Новости от FOREXPF.RU
<a href="https://www.instaforex.com/ru/">Форекс портал</a>
Ноябрь 2019
Пн Вт Ср Чт Пт Сб Вс
« Июн    
 123
45678910
11121314151617
18192021222324
252627282930  
При поддержке: деньги и фен шуй.

Торговый дневник 18.02.2015 (среда) Создал новую пустую БД и залил данные по 2013 год

 

08:30 Сегодня я не поехал на работу – нужно долечиться и заодно доделать свою БД. С работы звонили – сказал что болею и выйду завтра на работу.
08:40 Решил создать новую версию программы 1.10 и базу данных с нуля (без данных) и залить по новой все стейты в хронологическом порядке, чтобы Id счетов были не липовые а реальные. Заодно и  протестировать работу программы с нуля, т.е. без данных (в случае коммерческой разработки — это актуально). 

2015-02-20 09-44-18 About_History 1 10

15:39 Сделал расчет количества трейдов и добавил соответствующие поля в таблицы Accounts и GrafikProfit
Function fnCalcTrades(SelectId_Account As Long,Optional strField As String = «TotalTrades») As Double

Show »

‘Расчет количества трейдов

    Dim
dblTrades As Double

    dblTrades
= 0

    Dim dbs As
Database

    Dim rst As
Recordset

    Dim strSQL
As String

    Dim
strSQLWhere As String

    Set dbs =
CurrentDb()

    Select
Case strField

    Case
«TotalTrades»


strSQLWhere = «(St.Type = ‘buy’ Or St.Type = ‘sell’) AND
[CloseTime] Is Not Null»

    Case
«ProfitTrades»


strSQLWhere = «(St.Type = ‘buy’ Or St.Type = ‘sell’) AND
[CloseTime] Is Not Null AND
nz([Commission],0)+nz([Taxes],0)+nz([Swap],0)+nz([Profit],0) > 0»

    Case
«LossTrades»


strSQLWhere = «(St.Type = ‘buy’ Or St.Type = ‘sell’) AND
[CloseTime] Is Not Null AND
nz([Commission],0)+nz([Taxes],0)+nz([Swap],0)+nz([Profit],0) < 0»

    Case
«NullTrades»


strSQLWhere = «(St.Type = ‘buy’ Or St.Type = ‘sell’) AND [CloseTime]
Is Not Null AND nz([Commission],0)+nz([Taxes],0)+nz([Swap],0)+nz([Profit],0)
= 0»

    Case
«CancelledTrades»


strSQLWhere = «(St.Type = ‘buy limit’ Or St.Type = ‘sell limit’
Or St.Type = ‘buy stop’ Or St.Type = ‘sell stop’) AND [CloseTime] Is Not
Null»

    Case
«OpenTrades»


strSQLWhere = «(St.Type = ‘buy’ Or St.Type = ‘sell’) AND
[CloseTime] Is Null»

    Case
«WorkingOrders»


strSQLWhere = «(St.Type = ‘buy limit’ Or St.Type = ‘sell limit’
Or St.Type = ‘buy stop’ Or St.Type = ‘sell stop’) AND [CloseTime] Is
Null»

    End Select

   

    strSQL =
«SELECT St.Id_Account, Count(St.Id_Statement) AS CountTrades,
Sum([Commission]+[Taxes]+[Swap]+[Profit]) AS SumProfit FROM dbo_Statements AS
St » & _

        »
WHERE » & strSQLWhere & _

        » And St.Id_Account = » &
SelectId_Account & _

        »
GROUP BY St.Id_Account;»

       

    Set rst =
dbs.OpenRecordset(strSQL)

    With rst

        If
.RecordCount = 0 Then


dblTrades = 0

        Else


.MoveFirst

            dblTrades
= Nz(!Trades, 0)

        End If

        .Close

    End With

    Set dbs = Nothing


fnCalcTrades = dblTrades

Exit_fnCalcTrades:

End Function

18:00 По счету 15223 AM не сходится баланс -52.10  — не могу найти причину… И одна сумма 190 баксов депозитов никак не закачивается в автомате …
23:24 Завязываю на сегодня с закачкой. Остановился на начале 2013 года. Последние 3 счета неправильно считается баланс и эквити А также нужно сделать закачку транферов депозитов и выводов. Ни у найти  причину неправильных расчетов итогов …

Оставить комментарий