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

div 0

Browse Source
This commit is contained in:
Trowbridge 2019-03-22 10:54:05 -04:00
parent d4daa4e460
commit 6a5782035a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fpvt.frm
View File

@ -355,9 +355,13 @@ Private Sub UserForm_Activate()
End If End If
If (bVol + pVol) = 0 Then If (bVol + pVol) = 0 Then
pPrc = 0 pPrc = 0
Else
If bVol = 0 Then
pPrc = 0
Else Else
pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol
End If End If
End If
If aVal <> 0 Then If aVal <> 0 Then
MsgBox (aVal) MsgBox (aVal)
End If End If