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
@ -356,7 +356,11 @@ Private Sub UserForm_Activate()
    If (bVol + pVol) = 0 Then
        pPrc = 0
    Else
-        pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol
+        If bVol = 0 Then
+            pPrc = 0
+        Else
+            pPrc = (pVal + bVal) / (bVol + pVol) - bVal / bVol
+        End If
    End If
    If aVal <> 0 Then
        MsgBox (aVal)