Home/ Questions/Q 278847
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-12T01:18:14+00:00

I take This Week’s Revenue and Last Week’s Revenue values from the server and

  • 0

I take This Week’s Revenue and Last Week’s Revenue values from the server and save them as:
RevenueThisWeek = objRevenueThisWeek(“REVENUE”)
RevenueLastWeek = objRevenueLastWeek(“REVENUE”)
Then, I calculate percentage of them as:
RevenuePercent = RevenueThisWeek – RevenueLastWeek
RevenuePercent = RevenuePercent / RevenueLastWeek
RevenuePercent = RevenuePercent * 100

Problem here is, if both RevenueThisWeek and RevenueLastWeek are 0, I receive the following error message.

Microsoft VBScript runtime error ‘800a0006’

Overflow

edit

Forgot to mention. I created an if statement as

If (RevenueThisWeek AND RevenueLastWeek) = "0" Then
Else
RevenuePercent = RevenueThisWeek - RevenueLastWeek
RevenuePercent = RevenuePercent / RevenueLastWeek
RevenuePercent = RevenuePercent * 100   
End If

But this gave me results like:

            Last Week   This Week   % Change 
Revenue  $49.99       $72.97       0%
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team
    RevenuePercent = RevenueThisWeek - RevenueLastWeek
If RevenueLastWeek >= .01 Then '1 cent minimum. >0 can get messy.'
   RevenuePercent = RevenuePercent / RevenueLastWeek
Else
   RevenuePercent = 0
End If
RevenuePercent = RevenuePercent * 100

    Why the >.01?

    VBScript doesn’t have a decimal type and defaults to floats which means you could end up with a value of .0000004505 or something ugly which will still result in an overflow. If you deal with tenths of a cent change it to 

    If RevenueLastWeek >= .001 Then
    • 0