Débordement en ASP Classique

Je me demandais si quelqu'un pouvait m'aider, je suis allé à l'aveugle à ce que je crois est une simple cause d'une simple erreur.

J'ai ce code:

 doRound1(x1)
  denom1 = 5
  y1 = denom1 - x1 mod denom1
  if y1 <> denom1 then
    x1= x1+y1
  end if

  doRound1=x1
 End function

 'theCalc = 20488888888.684
  theCalc = cDbl(11111111111) * 1.844
  doRound1(theCalc)

J'obtiens cette erreur

Microsoft VBScript runtime  error '800a0006'
Overflow: 'x1'

Causés par cette ligne dans le code ci-dessus:

 y1 = denom1 - x1 mod denom1

Des idées? Comme je l'ai dit, je suis allé à l'aveugle ce h

Se pourrait-il que x1 est un vaule trop grand pour un Int/Long?

OriginalL'auteur | 2009-09-16