pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

presence of volume has no impact on price change

Browse Source
This commit is contained in:
Trowbridge 2019-03-20 13:03:58 -04:00
parent ae5515a83e
commit 7d2e018388
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
handler.bas
View File

@ -388,15 +388,11 @@ Sub month_tosheet(ByRef pkg() As Variant, ByRef basket() As Variant)
End If End If
'--adjust-- '--adjust--
If co_num(pkg(i, 3), 0) = 0 Then
sh.Cells(i + 1, 8) = 0
Else
If (pkg(i, 3) + pkg(i, 2)) = 0 Then If (pkg(i, 3) + pkg(i, 2)) = 0 Then
sh.Cells(i + 1, 8) = 0 sh.Cells(i + 1, 8) = 0
Else Else
sh.Cells(i + 1, 8) = (pkg(i, 7) + pkg(i, 6)) / (pkg(i, 3) + pkg(i, 2)) - (pkg(i, 6) / pkg(i, 2)) sh.Cells(i + 1, 8) = (pkg(i, 7) + pkg(i, 6)) / (pkg(i, 3) + pkg(i, 2)) - (pkg(i, 6) / pkg(i, 2))
End If End If
End If
'--current adjust-- '--current adjust--
sh.Cells(i + 1, 9) = 0 sh.Cells(i + 1, 9) = 0