div 0

2019-03-22 10:54:05 -04:00 · 2019-03-22 10:54:05 -04:00 · 6a5782035a
commit 6a5782035a
parent d4daa4e460
1 changed files with 5 additions and 1 deletions
--- a/fpvt.frm
+++ b/fpvt.frm
@ -355,9 +355,13 @@ Private Sub UserForm_Activate()
    End If
    If (bVol + pVol) = 0 Then
        pPrc = 0
+    Else
+        If bVol = 0 Then
+            pPrc = 0
        Else
            pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol
        End If
+    End If
    If aVal <> 0 Then
        MsgBox (aVal)
    End If