एएसपी क्लासिक

Question

में ओवरफ़्लो मैं सोच रहा था कि कोई मेरी मदद कर सकता है, क्योंकि मैं जो समझता हूं वह अंधेरा हो गया है, यह एक साधारण त्रुटि का एक आसान कारण है।

y1 = denom1 - x1 mod denom1 

कोई भी विचार: मैं इस त्रुटि

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

उपरोक्त कोड में इस लाइन की वजह से मिलता है

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) 

:

मैं इस कोड है? जैसा कि मैंने कहा, मैं इस पीएम में अंधेरा चला गया हूँ

Answer 1

मेरा मानना ​​है कि जब आप मूल्यों को विशेष रूप से परिभाषित नहीं करते हैं, तो एएसपी क्लासिक एक संख्यात्मक मान मानता है (जो केवल 32767 है)। देशांतर

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

    doRound1=x1 
End function 

नोट होने के लिए अपने मूल्यों के लिए मजबूर कर प्रयास करें: मैं वास्तव में इस परीक्षण नहीं किया।

Answer 2

जवाब PRB: "Overflow" with Integer Division and MOD Operator पर प्रतीत होता है:

मॉड ऑपरेटर और पूर्णांक विभाजन ऑपरेटर के लिए Visual Basic मदद विषय() बताते हैं कि चल बिन्दु संख्या अभिव्यक्ति में उपयोग किया जाता है, वे पहले लंबे समय में परिवर्तित हो जाते हैं। इस प्रकार, यदि चल बिंदु संख्या एक लंबे समय से (2,147,483,647) के अधिकतम मान से अधिक, या एक लंबी (-+२१४७४८३६४८) के लिए न्यूनतम मूल्य से कम है, एक अतिप्रवाह त्रुटि हो जाएगा।

जवाब के रूप में अच्छी तरह से वहाँ उपलब्ध है:

निम्नलिखित कोड दर्शाता है कि कैसे करने के लिए पूर्णांक विभाजन करते हैं और अंकगणित सापेक्ष जब एक संकार्य के आकार अतिप्रवाह पैदा करने के लिए पर्याप्त रूप से बड़े है:

Dim dblX as Double 
Dim dblY as Double 
dblX = 2147483648    ' numerator 
dblY = 123      ' denominator 

' round off the numerator and denominator (ensure number is .0) 
dblX = INT(dblX + .5)   
dblY = INT(dblY + .5)  

' Emulate integer division 
MsgBox FIX(dblX/dblY)    
' Emulate modulo arithmetic 
MsgBox dblX - (dblY * FIX(dblX/dblY))