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

Not sure what these changes were for. They happened too long ago.

Browse Source
This commit is contained in:
PhilRunninger 2023-08-31 09:49:43 -04:00
parent 1d5234a8b7
commit 8ab2e26937
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
VBA/fpvt.frm
View File

@ -98,8 +98,8 @@ End Sub
Private Sub opEditPrice_Click() Private Sub opEditPrice_Click()
opPlugVol.Visible = False opPlugVol.Visible = False
opPlugPrice.Visible = False opPlugPrice.Visible = False
opPlugPrice.Value = True ' opPlugPrice.Value = True
opPlugVol.Value = False ' opPlugVol.Value = False
tbFcPrice.Enabled = True tbFcPrice.Enabled = True
tbFcPrice.BackColor = &H80000018 tbFcPrice.BackColor = &H80000018
@ -181,26 +181,20 @@ End Sub
Private Sub tbpd_Change() Private Sub tbpd_Change()
If load_tb Then Exit Sub If load_tb Then Exit Sub
If Not VBA.IsNumeric(tbpd.Value) Then If Not VBA.IsNumeric(tbpd.Value) Then Exit Sub
tbpd = "0"
End If
tbFcVal = (bVal + pVal) * (1 + tbpd.Value / 100) tbFcVal = (bVal + pVal) * (1 + tbpd.Value / 100)
End Sub End Sub
Private Sub tbpp_Change() Private Sub tbpp_Change()
If load_tb Then Exit Sub If load_tb Then Exit Sub
If Not VBA.IsNumeric(tbpd.Value) Then If Not VBA.IsNumeric(tbpd.Value) Then Exit Sub
tbpd = "0"
End If
tbFcPrice = (bPrc + pPrc) * (1 + tbpp.Value / 100) tbFcPrice = (bPrc + pPrc) * (1 + tbpp.Value / 100)
Me.load_mbox_ann Me.load_mbox_ann
End Sub End Sub
Private Sub tbpv_Change() Private Sub tbpv_Change()
If load_tb Then Exit Sub If load_tb Then Exit Sub
If Not VBA.IsNumeric(tbpv.Value) Then If Not VBA.IsNumeric(tbpv.Value) Then Exit Sub
tbpd = "0"
End If
tbFcVol = (bVol + pVol) * (1 + tbpv.Value / 100) tbFcVol = (bVol + pVol) * (1 + tbpv.Value / 100)
End Sub End Sub